In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/81e6f6d030e616337aef1f8b0fe4070e559a1c31?hp=5322d43eec5f30a4b16c8bac6ae324f91deab5f5>
- Log ----------------------------------------------------------------- commit 81e6f6d030e616337aef1f8b0fe4070e559a1c31 Author: Craig A. Berry <[email protected]> Date: Tue Mar 8 21:31:54 2011 -0600 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. ----------------------------------------------------------------------- Summary of changes: 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 af51d95..ae031cf 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'} = ''; -- Perl5 Master Repository
