Fix [RT#66098] -- stricter checking on SvIVX exposed a lack of SvIOK check

[p5sagit/p5-mst-13.2.git] / t / op / reg_namedcapture.t

diff --git a/t/op/reg_namedcapture.t b/t/op/reg_namedcapture.t
index b9315cc..e3a8374 100644 (file)
--- a/t/op/reg_namedcapture.t
+++ b/t/op/reg_namedcapture.t
@@ -3,9 +3,13 @@
 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";
@@ -15,6 +19,8 @@ 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";