Re: Perl CGI.PM: Use of uninitialized value $vals

[kcott]

It's generated by code something like these:

$ perl -wE 'my $vals; my $y = index($vals, "x")'
Use of uninitialized value $vals in index at -e line 1.
$ perl -wE 'my $vals; my $y = index("x", $vals)'
Use of uninitialized value $vals in index at -e line 1.

Look in /homedir/perl5/lib/perl5/CGI.pm, go to line 1243, and start investigating from there.

[Anonymous Monk]

I do not have code calling the method index, but rindex yes.

[poj]

What version of CGI do you have ?. In 3.65 the code was

sub STORE {
    my $self = shift;
    my $tag  = shift;
    my $vals = shift;
    my @vals = index($vals,"\0")!=-1 ? split("\0",$vals) : $vals;
    $self->param(-name=>$tag,-value=>\@vals);
}

In 4.37 it is

sub STORE {
    my $self = shift;
    my $tag  = shift;
    my $vals = shift;
    my @vals = defined($vals) && index($vals,"\0")!=-1 ? split("\0",$v
+als) : $vals;
    $self->param(-name=>$tag,-value=>\@vals);
}

poj

[Anonymous Monk]

Was 4.22. Have upgraded to 4.38. Thank you)))