diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-08-04 18:40:30 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-04 15:34:19 +0000 |
| commit | a8c7c11a510ba1b065a5e57da04d34c2f89e233b (patch) | |
| tree | 8322f0bc9c5da4e99e8c4a17e3c659adb284ed90 /t | |
| parent | 06bd180242168640a1733ced8fea2dbabcdc44d0 (diff) | |
| download | perl-a8c7c11a510ba1b065a5e57da04d34c2f89e233b.tar.gz | |
Re: [ID 20020704.001] my $foo = $1 won't taint $foo (with use re 'taint')
Message-id: <200208041640.g74GeUU25061@crypt.compulink.co.uk>
p4raw-id: //depot/perl@17678
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/taint.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 18b39dc070..7e8d4c48ba 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -124,7 +124,7 @@ my $echo = "$Invoke_Perl $ECHO"; my $TEST = catfile(curdir(), 'TEST'); -print "1..205\n"; +print "1..206\n"; # First, let's make sure that Perl is checking the dangerous # environment variables. Maybe they aren't set yet, so we'll @@ -971,3 +971,10 @@ else # If you add tests here update also the above skip block for VMS. } + +{ + # [ID 20020704.001] taint propagation failure + use re 'taint'; + $TAINT =~ /(.*)/; + test 206, tainted(my $foo = $1); +} |