X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fglob-global.t;h=a82408c93ee3ecfeeefcd2d8f3ef052f3b8dcffc;hb=9ee2bb1a7c54b1866ff07ab9c157254810ee5205;hp=7da741ee1692fa88cf3eab759cdd1434db27f579;hpb=72b166521443a1b89b0fed156fa8334cfab6e61b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/glob-global.t b/t/lib/glob-global.t
index 7da741e..a82408c 100755
--- a/t/lib/glob-global.t
+++ b/t/lib/glob-global.t
@@ -2,8 +2,12 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
-
+    @INC = '../lib';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
+        print "1..0\n";
+        exit 0;
+    }
     print "1..10\n";
 }
 END {
@@ -23,7 +27,7 @@ EOMessage
     }
 }
 
-use File::Glob 'globally';
+use File::Glob ':globally';
 $loaded = 1;
 print "ok 1\n";
 
@@ -52,7 +56,7 @@ while (defined($_ = <*/*.t>)) {
 print "not " if @r != $r;
 print "ok 5\n";
 
-# check if array context works
+# check if list context works
 @r = ();
 for (<*/*.t>) {
     #print "# $_\n";
@@ -81,7 +85,7 @@ print "ok 8\n";
 
 # how about in a different package, like?
 package Foo;
-use File::Glob 'globally';
+use File::Glob ':globally';
 @s = ();
 while (glob '*/*.t') {
     #print "# $_\n";