diff options
Diffstat (limited to 't/lib/glob-basic.t')
| -rwxr-xr-x | t/lib/glob-basic.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t index 89024baaab..0719193d3a 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') |