From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 7 Feb 2007 23:54:53 +0000 (+0000)
Subject: opening $0 doesn't work if you change directory. So use test.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abb7fb969e178cc19fea40a236916e588c666f16;p=p5sagit%2Fp5-mst-13.2.git

opening $0 doesn't work if you change directory. So use test.pl

p4raw-id: //depot/perl@30168
---

diff --git a/t/op/taint.t b/t/op/taint.t
index f661108..84600e4 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1223,9 +1223,9 @@ SKIP:
     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/);