diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 06:44:42 +0000 |
| commit | f0963acb6df75767aaf57c94e1e7509003ff1543 (patch) | |
| tree | caab5a83cad07f6fe3efa85385f4bc996ab12923 /t/lib/glob-basic.t | |
| parent | c15a5d5de69fd60182fabfe5d4c4aba46fd1ca8a (diff) | |
| download | perl-f0963acb6df75767aaf57c94e1e7509003ff1543.tar.gz | |
consolidated VMS patches (from Craig A. Berry
<craig.berry@metamorgs.com>); Glob.pm patch modified to use
$DEFAULT_FLAGS, and iff no flags were supplied
p4raw-id: //depot/perl@5397
Diffstat (limited to 't/lib/glob-basic.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') { |