From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 Apr 2000 06:16:11 +0000 (+0000)
Subject: VMS nits in glob() test (from Charles Lane)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3eba041e065d74d85dc27d994c020f963b36fe22;p=p5sagit%2Fp5-mst-13.2.git

VMS nits in glob() test (from Charles Lane)

p4raw-id: //depot/perl@5918
---

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index 89024ba..0719193 100755
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -39,7 +39,7 @@ print "ok 2\n";
 
 # look up the user's home directory
 # should return a list with one item, and not set ERROR
-if ($^O ne 'MSWin32' || $^O ne 'VMS') {
+if ($^O ne 'MSWin32' && $^O ne 'VMS') {
   eval {
     ($name, $home) = (getpwuid($>))[0,7];
     1;
@@ -99,7 +99,7 @@ print "ok 7\n";
 
 @a = File::Glob::glob(
     '{TES*,doesntexist*,a,b}',
-    GLOB_BRACE | GLOB_NOMAGIC
+    GLOB_BRACE | GLOB_NOMAGIC | ($^O eq 'VMS' ? GLOB_NOCASE : 0)
 );
 unless (@a == 3
         and $a[0] eq ($^O eq 'VMS'? 'test.' : 'TEST')