diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2004-08-09 18:10:42 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2004-08-09 18:10:42 +0000 |
| commit | b30707e4885ca231ff72a496671faa7830e8002a (patch) | |
| tree | ceefb7d8635e495c31ba663e183cdcad8a9b157c /gnu/usr.bin/perl/t/op/taint.t | |
| parent | 3c5182ca6f3c3cb0d292743e65788c0b1d03b596 (diff) | |
merge 5.8.5 into HEAD
remove now-unused files
crank libperl shared library major number
update Makefile.bsd-wrapper
tweak openbsd hints file for arm and m68k
Diffstat (limited to 'gnu/usr.bin/perl/t/op/taint.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/op/taint.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/op/taint.t b/gnu/usr.bin/perl/t/op/taint.t index 9751eecb269..f37f3aaae3a 100644 --- a/gnu/usr.bin/perl/t/op/taint.t +++ b/gnu/usr.bin/perl/t/op/taint.t @@ -124,7 +124,7 @@ my $echo = "$Invoke_Perl $ECHO"; my $TEST = catfile(curdir(), 'TEST'); -print "1..220\n"; +print "1..223\n"; # First, let's make sure that Perl is checking the dangerous # environment variables. Maybe they aren't set yet, so we'll @@ -1030,4 +1030,14 @@ else test 219, !tainted($1); ($r = $TAINT) =~ /($TAINT)/; test 220, tainted($1); + + # [perl #24674] + # accessing $^O shoudn't taint it as a side-effect; + # assigning tainted data to it is now an error + + test 221, !tainted($^O); + if (!$^X) { } elsif ($^O eq 'bar') { } + test 222, !tainted($^O); + eval '$^O = $^X'; + test 223, $@ =~ /Insecure dependency in/; } |