diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-12-11 05:03:57 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-12-13 09:41:21 +0000 |
| commit | 25fb98c0239ba605154cf0c1170f623764cf67ed (patch) | |
| tree | 10d4bb561540dc2343609d6085cbc643d5c45d15 /t | |
| parent | 75dbc64466f68eeb78bbdb5a24eb7586261e17b5 (diff) | |
| download | perl-25fb98c0239ba605154cf0c1170f623764cf67ed.tar.gz | |
t/op/taint.t follow-up to #23635
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41BB287D.6090001@mac.com>
p4raw-id: //depot/perl@23641
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/taint.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 69af31e4d8..26f9587e85 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -205,7 +205,7 @@ my $TEST = catfile(curdir(), 'TEST'); test $@ =~ /^Insecure \$ENV{DCL\$PATH}/, $@; SKIP: { skip q[can't find world-writeable directory to test DCL$PATH], 2 - if $tmp; + unless $tmp; $ENV{'DCL$PATH'} = $tmp; test eval { `$echo 1` } eq ''; |