6 unless ( -r "$INC[0]/Errno.pm") {
7 print "1..0 # Skip: Errno.pm not yet available\n";
12 # WARNING: Do not directly use any modules as part of this test code.
13 # We could get action at a distance that would invalidate the tests.
17 # This tests whether glob assignment fails to load the tie.
20 print eval '*X{HASH}{X} || 1' ? "" :"not ","ok ",++$test,"\n";
22 # And since it's a similar case we check %! as well. Note that
23 # this can't be done until ../lib/Errno.pm is in place, as the
24 # glob hits $!, which needs that module.
26 print 0<keys(%Y) ? "" :"not ","ok ",++$test,"\n";