Use of uninitialized value in substitution (s///) at /usr/local/apache/www/commdata/domain.com/lib/GT/CGI.pm line 86, <FILE> line 16.


# Load form data.
my $method = defined $ENV{REQUEST_METHOD} ? uc $ENV{REQUEST_METHOD} : '';
my $content_length = defined $ENV{'CONTENT_LENGTH'} ? $ENV{'CONTENT_LENGTH'} : 0;
if ($method eq 'GET') {
$self->parse_str(defined $ENV{QUERY_STRING} ? $ENV{QUERY_STRING} : '');
}
elsif ($method eq 'POST') {
if ($content_length) {
if ($ENV{CONTENT_TYPE} and $ENV{CONTENT_TYPE} =~ /^multipart/) {
require GT::CGI::MultiPart;
GT::CGI::MultiPart->parse($self);
}
else {
read(STDIN, my $data, $content_length, 0);
(line 86) $data =~ s/\r?\n/&/g;
$self->parse_str($data);
}
}
}
else {
my $data = join "&", @ARGV;
$self->parse_str($data);

Use of uninitialized value in split at /usr/local/apache/www/commdata/domain.com/lib/GT/CGI.pm line 603, <FILE> line 16.

sub parse_str {
#--------------------------------------------------------------------------------
# parses a query string and add it to the parameter list
#
my $self = shift;
my @input;
(line 603) for (split /[;&]/, shift) {
my ($key, $val) = /([^=]+)=(.*)/ or next;
# Need to remove cr's on windows.
if ($^O eq 'MSWin32') {
$key =~ s/%0D%0A/%0A/gi; # \x0d = \r, \x0a = \n
$val =~ s/%0D%0A/%0A/gi;
}
push @input, $key, $val;
}
unescape(\@input);
while (@input) {
my ($k, $v) = splice @input, 0, 2;
$self->{params}->{$k} or push @{$self->{param_order}}, $k;
unshift @{$self->{params}->{$k}}, $v;
}
}
1;