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 (executable)
--- 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 '';