Change 30168 by [EMAIL PROTECTED] on 2007/02/07 23:54:53
opening $0 doesn't work if you change directory. So use test.pl
Affected files ...
... //depot/perl/t/op/taint.t#81 edit
Differences ...
==== //depot/perl/t/op/taint.t#81 (xtext) ====
Index: perl/t/op/taint.t
--- perl/t/op/taint.t#80~30167~ 2007-02-07 15:49:44.000000000 -0800
+++ perl/t/op/taint.t 2007-02-07 15:54:53.000000000 -0800
@@ -1223,9 +1223,9 @@
is ($val, 0, "eval doesn't like tainted strings");
like ($@, qr/^Insecure dependency in eval/);
- # Rather nice code to get a tainted by from Rick Delaney
- open 0 or die $!;
- $tainted=(<0>,<0>);
+ # Rather nice code to get a tainted undef by from Rick Delaney
+ open FH, "test.pl" or die $!;
+ $tainted=(<FH>,<FH>);
eval 'eval $tainted';
like ($@, qr/^Insecure dependency in eval/);
End of Patch.
