diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
| commit | 2986a63f7e513cf37f46db9f211b77071260031f (patch) | |
| tree | 9a6e62602396938ea5a612420f53ebf267e8d941 /t/lib/cwd.t | |
| parent | 87b11a197a59fac210fc9265bde0ef1ffe36de89 (diff) | |
| download | perl-2986a63f7e513cf37f46db9f211b77071260031f.tar.gz | |
NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
p4raw-id: //depot/perl@10643
Diffstat (limited to 't/lib/cwd.t')
| -rw-r--r-- | t/lib/cwd.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/cwd.t b/t/lib/cwd.t index 5a3ecae4d5..09b45d6004 100644 --- a/t/lib/cwd.t +++ b/t/lib/cwd.t @@ -30,7 +30,7 @@ eval { fastcwd }; # Must find an external pwd (or equivalent) command. my $pwd_cmd = - ($^O eq "MSWin32") ? "cd" : (grep { -x && -f } map { "$_/pwd" } + ($^O eq "MSWin32" || $^O eq "NetWare") ? "cd" : (grep { -x && -f } map { "$_/pwd" } split m/$Config{path_sep}/, $ENV{PATH})[0]; if ($^O eq 'VMS') { $pwd_cmd = 'SHOW DEFAULT'; } @@ -38,7 +38,7 @@ if ($^O eq 'VMS') { $pwd_cmd = 'SHOW DEFAULT'; } if (defined $pwd_cmd) { chomp(my $start = `$pwd_cmd`); # Win32's cd returns native C:\ style - $start =~ s,\\,/,g if $^O eq 'MSWin32'; + $start =~ s,\\,/,g if ($^O eq 'MSWin32' || $^O eq "NetWare"); # DCL SHOW DEFAULT has leading spaces $start =~ s/^\s+// if $^O eq 'VMS'; if ($?) { |