diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-08-04 15:25:25 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-04 15:25:25 +0000 |
| commit | 06bd180242168640a1733ced8fea2dbabcdc44d0 (patch) | |
| tree | 422527206cae856990bbb0244f773202fa89f0f2 /t | |
| parent | 5a445156505b2b63705ed94cffed69b6c031ee2c (diff) | |
| download | perl-06bd180242168640a1733ced8fea2dbabcdc44d0.tar.gz | |
Main branch no longer needs op/taint.t version check.
p4raw-id: //depot/perl@17677
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/taint.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index ac1cace999..18b39dc070 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -941,9 +941,7 @@ else { # bug 20020208.005 plus some extras # single arg exec/system are tests 80-83 - use if $] lt '5.009', warnings => FATAL => 'taint'; - my $err = $] ge '5.009' ? qr/^Insecure dependency/ - : qr/^Use of tainted arguments/; + my $err = qr/^Insecure dependency/ ; test 184, eval { exec $TAINT, $TAINT } eq '', 'exec'; test 185, $@ =~ $err, $@; test 186, eval { exec $TAINT $TAINT } eq '', 'exec'; |