Change 17677 by [EMAIL PROTECTED] on 2002/08/04 15:25:25
Main branch no longer needs op/taint.t version check.
Affected files ...
.... //depot/perl/t/op/taint.t#51 edit
Differences ...
==== //depot/perl/t/op/taint.t#51 (xtext) ====
Index: perl/t/op/taint.t
--- perl/t/op/taint.t#50~17549~ Mon Jul 15 06:38:53 2002
+++ perl/t/op/taint.t Sun Aug 4 08:25:25 2002
@@ -941,9 +941,7 @@
{
# 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';
End of Patch.
