diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-03-02 03:50:53 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-03-02 03:50:53 +0000 |
| commit | eed98e348d85043d0e6183a2db5c1a77d998d259 (patch) | |
| tree | 60f0a18724866d905a819edfb4321648bbc3a322 /t | |
| parent | f53b4005ee9caf0c4bca648dd62abf1d2c96a549 (diff) | |
| download | perl-eed98e348d85043d0e6183a2db5c1a77d998d259.tar.gz | |
Make File::Glob more VMS-friendly (Charles Lane)
p4raw-id: //depot/vmsperl@5419
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/glob-basic.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t index ac3abf56e4..2336fc0d9b 100755 --- a/t/lib/glob-basic.t +++ b/t/lib/glob-basic.t @@ -38,7 +38,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') { +if ($^O ne 'MSWin32' || $^O ne 'VMS') { eval { ($name, $home) = (getpwuid($>))[0,7]; 1; @@ -72,7 +72,7 @@ print "ok 5\n"; # check bad protections # should return an empty list, and set ERROR -if ($^O eq 'mpeix' or $^O eq 'MSWin32' or $^O eq 'os2' or not $>) { +if ($^O eq 'mpeix' or $^O eq 'MSWin32' or $^O eq 'os2' or $^O eq 'VMS' or not $>) { print "ok 6 # skipped\n"; } else { @@ -99,7 +99,7 @@ print "ok 7\n"; GLOB_BRACE | GLOB_NOMAGIC ); unless (@a == 3 - and $a[0] eq 'TEST' + and $a[0] eq ($^O eq 'VMS'? 'test.' : 'TEST') and $a[1] eq 'a' and $a[2] eq 'b') { |