diff options
| -rwxr-xr-x | t/op/taint.t | 8 | ||||
| -rw-r--r-- | t/run/fresh_perl.t | 2 |
2 files changed, 4 insertions, 6 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 63fc32e8a4..8591b347e0 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -31,10 +31,6 @@ sub ok ($;$) { $| = 1; -# We do not want the whole taint.t to fail -# just because Errno possibly failing. -eval { require Errno; import Errno }; - use vars qw($ipcsysv); # did we manage to load IPC::SysV? BEGIN { @@ -409,7 +405,9 @@ else { test 72, $@ eq '', $@; # NB: This should be allowed # Try first new style but allow also old style. - test 73, $!{ENOENT} || + # We do not want the whole taint.t to fail + # just because Errno possibly failing. + test 73, eval('$!{ENOENT}') || $! == 2 || # File not found ($Is_Dos && $! == 22) || ($^O eq 'mint' && $! == 33); diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index 41aa1eca58..79aae7a04a 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -760,7 +760,7 @@ EXPECT 123456789 ######## [ID 20020104.007] "coredump on dbmclose" package Foo; -eval { dbmclose %h }; # not all places have dbm* functions +eval { require AnyDBM_File }; # not all places have dbm* functions if ($@) { print "ok\n"; exit 0; |