Configure followed by make minitest

Message-ID: <YIhY8gzkgSbC092yn@efn.org>

p4raw-id: //depot/perl@14600

diff --git a/t/op/taint.t b/t/op/taint.t
index 63fc32e..8591b34 100755 (executable)
--- 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 41aa1ec..79aae7a 100644 (file)
--- 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;