From: Paul Green <Paul.Green@stratus.com>
Date: Sat, 19 Jan 2002 11:20:00 +0000 (-0500)
Subject: ext/File/Glob/t/basic.t - VOS patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29d78b18a588c463416aebe1a315afe3faf32d0c;hp=2951361e9d8088090b6343434f93a11611bfa748;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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