taint.t broken by refactoring
authorCraig A. Berry <craigberry@mac.com>
Wed, 9 Mar 2011 03:31:54 +0000 (21:31 -0600)
committerCraig A. Berry <craigberry@mac.com>
Wed, 9 Mar 2011 03:31:54 +0000 (21:31 -0600)
Somewhere in the fifteen! commits to taint.t in the last couple of
weeks, the truth got lost.  Literally.  Instead of testing for
falsehood, we were testing for equivalence to empty string. What
we actually get is undef, so test for that.

t/op/taint.t

index af51d95..ae031cf 100644 (file)
@@ -204,14 +204,14 @@ my $TEST = 'TEST';
         skip "This is not VMS", 4 unless $Is_VMS;
 
        $ENV{'DCL$PATH'} = $TAINT;
-       is(eval { `$echo 1` }, '');
+       is(eval { `$echo 1` }, undef);
        like($@, qr/^Insecure \$ENV{DCL\$PATH}/);
        SKIP: {
             skip q[can't find world-writeable directory to test DCL$PATH], 2
               unless $tmp;
 
            $ENV{'DCL$PATH'} = $tmp;
-           is(eval { `$echo 1` }, '');
+           is(eval { `$echo 1` }, undef);
            like($@, qr/^Insecure directory in \$ENV{DCL\$PATH}/);
        }
        $ENV{'DCL$PATH'} = '';