diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-24 06:16:11 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-24 06:16:11 +0000 |
| commit | 8f62f942a11bc63e65ab669d0b99d68caa909663 (patch) | |
| tree | d9eed8cb9de54ed001bed9b6b4fa126265fcd1f5 | |
| parent | ee4f359ddac7dbc6d7e6bbb6efbbb6da42d42579 (diff) | |
| download | perl-8f62f942a11bc63e65ab669d0b99d68caa909663.tar.gz | |
VMS nits in glob() test (from Charles Lane)
p4raw-id: //depot/perl@5918
| -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') |