> [rafael - Mon Sep 02 15:33:12 2002]:
>
> This is a bug report for perl from [EMAIL PROTECTED],
> generated with the help of perlbug 1.34 running under perl v5.9.0.
>
>
> -----------------------------------------------------------------
> [Please enter your report here]
>
> The following script prints "not ok 3" where it should print "ok 3" :
>
> #!perl -wlT
> use Scalar::Util qw/tainted/;
> $r = qr/.*/;
> $var = $0; # tainted value
> if (defined $var && $var =~ /^($r)/) {
> print( tainted( $var ) ? 'ok 1' : 'not ok 1' );
> print( tainted( $1 ) ? 'not ok 2' : 'ok 2' );
> $var = $1;
> print( tainted( $var ) ? 'not ok 3' : 'ok 3' );
> }
> __END__
>
This seems to be OK in Perl 5.8.5. Has this fix been placed into the
Perl 5.9 releases?
