summaryrefslogtreecommitdiffstats
path: root/Bugzilla
diff options
context:
space:
mode:
authorPami Ketolainen <pami.ketolainen@jollamobile.com>2014-09-18 11:08:07 +0200
committerByron Jones <glob@mozilla.com>2014-09-18 11:08:07 +0200
commitc07333d9c122bd6751e31dae5a7c49901f6518b2 (patch)
tree3d19b5f95e0d8db87b3a5b827fc2c10223479f81 /Bugzilla
parentaf46080505c3103888846c59551f41e0af823bb1 (diff)
downloadbugzilla-c07333d9c122bd6751e31dae5a7c49901f6518b2.tar.gz
bugzilla-c07333d9c122bd6751e31dae5a7c49901f6518b2.tar.xz
Bug 1068521: "Use of uninitialized value" warnings
r=glob,a=glob
Diffstat (limited to 'Bugzilla')
-rw-r--r--Bugzilla/CGI.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/Bugzilla/CGI.pm b/Bugzilla/CGI.pm
index 79e3e053b..18181f489 100644
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -373,10 +373,7 @@ sub param {
if (!scalar(@result)
&& $self->request_method && $self->request_method eq 'POST')
{
- # Some servers fail to set the QUERY_STRING parameter, which
- # causes undef issues
- $ENV{'QUERY_STRING'} = '' unless exists $ENV{'QUERY_STRING'};
- @result = $self->SUPER::url_param(@_);
+ @result = $self->url_param(@_);
}
# Fix UTF-8-ness of input parameters.
@@ -401,6 +398,14 @@ sub param {
return $self->SUPER::param(@_);
}
+sub url_param {
+ my $self = shift;
+ # Some servers fail to set the QUERY_STRING parameter, which
+ # causes undef issues
+ $ENV{'QUERY_STRING'} //= '';
+ return $self->SUPER::url_param(@_);
+}
+
sub _fix_utf8 {
my $input = shift;
# The is_utf8 is here in case CGI gets smart about utf8 someday.
@@ -732,6 +737,8 @@ L<CGI|CGI>, L<CGI::Cookie|CGI::Cookie>
=item param
+=item url_param
+
=item header
=back