From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 11 Dec 2004 11:03:57 +0000 (-0600)
Subject: t/op/taint.t follow-up to #23635
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25fb98c0239ba605154cf0c1170f623764cf67ed;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/op/taint.t b/t/op/taint.t
index 69af31e..26f9587 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 '';