BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ unless ( -r "$INC[0]/Errno.pm") {
+ print "1..0 # Skip: Errno.pm not yet available\n";
+ exit 0;
+ }
}
-# WARNING: Do not use anymodules as part of this test code.
+# WARNING: Do not directly use any modules as part of this test code.
# We could get action at a distance that would invalidate the tests.
print "1..2\n";
'X'=~/(?<X>X)/;
print eval '*X{HASH}{X} || 1' ? "" :"not ","ok ",++$test,"\n";
-# And since its a similar case we check %! as well
+# And since it's a similar case we check %! as well. Note that
+# this can't be done until ../lib/Errno.pm is in place, as the
+# glob hits $!, which needs that module.
*Y = *!;
print 0<keys(%Y) ? "" :"not ","ok ",++$test,"\n";