ext/File/Glob/t/basic.t - VOS patch

Message-Id: <200201191619.LAA07751@mailhub2.stratus.com>

p4raw-id: //depot/perl@14344

diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t
index 2eb891b..d7aeea4 100755 (executable)
--- a/ext/File/Glob/t/basic.t
+++ b/ext/File/Glob/t/basic.t
@@ -92,9 +92,15 @@ else {
     #print "\@a = ", array(@a);
     rmdir $dir;
     if (scalar(@a) != 0 || GLOB_ERROR == 0) {
-       print "not ";
+       if ($^O eq 'vos') {
+           print "not ok 6 -- hit VOS bug posix-956\n";
+       } else {
+           print "not ok 6\n";
+       }
+    }
+    else {
+       print "ok 6\n";
     }
-    print "ok 6\n";
 }
 
 # check for csh style globbing