diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-03-08 21:31:54 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-03-08 21:31:54 -0600 |
| commit | 81e6f6d030e616337aef1f8b0fe4070e559a1c31 (patch) | |
| tree | 412b0c5871f83392f12e6f4364d5f27979e88194 /t/op/taint.t | |
| parent | 5322d43eec5f30a4b16c8bac6ae324f91deab5f5 (diff) | |
| download | perl-81e6f6d030e616337aef1f8b0fe4070e559a1c31.tar.gz | |
taint.t broken by refactoring
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.
Diffstat (limited to 't/op/taint.t')
| -rw-r--r-- | t/op/taint.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index af51d95bd9..ae031cf7bb 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -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'} = ''; |