http://qs1969.pair.com?node_id=203959


in reply to Re: $TAINTED in latest CGI.pm v2.87
in thread $TAINTED in latest CGI.pm v2.87

You are right. I went back and put CGI.pm v2.87 back in and added
a line:
$ENV{REQUEST_METHOD} = $ENV{REQUEST_METHOD} || '';

$TAINTED = substr($ENV{REQUEST_METHOD}.'',0,0);

and it works fine now.  There must be a better idiom for that added line ?
  • Comment on Re: Re: $TAINTED in latest CGI.pm v2.87

Replies are listed 'Best First'.
Re^3: $TAINTED in latest CGI.pm v2.87
by particle (Vicar) on Oct 09, 2002 at 15:45 UTC

    how about 

    $ENV{REQUEST_METHOD} ||= '';

    [download]

    but it will replace a false value, such as the number 0. in perl6, that's better written as:

    $ENV{REQUEST_METHOD} //= '';

    [download]

    which will only default undefined values

    ~Particle *accelerates*

[reply]
[d/l]
[select]
Re^3: $TAINTED in latest CGI.pm v2.87
by Aristotle (Chancellor) on Oct 09, 2002 at 21:44 UTC
    defined or $_ = '' for $ENV{REQUEST_METHOD};

    Makeshifts last the longest.

[reply]
[d/l]

In Section Seekers of Perl Wisdom