From abb7fb969e178cc19fea40a236916e588c666f16 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 7 Feb 2007 23:54:53 +0000 Subject: [PATCH] opening $0 doesn't work if you change directory. So use test.pl p4raw-id: //depot/perl@30168 --- t/op/taint.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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=(,); eval 'eval $tainted'; like ($@, qr/^Insecure dependency in eval/); -- 2.7.4