From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Wed, 6 Feb 2002 21:35:20 +0000 (-0800)
Subject: Configure followed by make minitest
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=327ccce1a786df11565e91b4bb4adc2762c13d28;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;