This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Configure followed by make minitest
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Wed, 6 Feb 2002 21:35:20 +0000 (13:35 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 8 Feb 2002 14:07:15 +0000 (14:07 +0000)
Message-ID: <YIhY8gzkgSbC092yn@efn.org>

p4raw-id: //depot/perl@14600

t/op/taint.t
t/run/fresh_perl.t

index 63fc32e..8591b34 100755 (executable)
@@ -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);
index 41aa1ec..79aae7a 100644 (file)
@@ -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;