diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-21 17:52:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-21 17:52:28 +0000 |
| commit | cade0c02de13e52be76bdb1f796759b43676baa2 (patch) | |
| tree | 591b6418335e18547b0595730fc353cba6837025 /lib | |
| parent | c503532989252898ff605cd4a12739b7319e682d (diff) | |
| download | perl-cade0c02de13e52be76bdb1f796759b43676baa2.tar.gz | |
More Cwd from Schwern: make also OS/2 and DOS
Cwd agree with File::Spec (that is, native path
syntax using \ instead of / -- backward compatibility
polic warning) and stop Win32 from using bsd_realpath().
p4raw-id: //depot/perl@12116
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Cwd.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 9602919658..0a1b2b85a7 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -437,7 +437,6 @@ sub _vms_abs_path { sub _os2_cwd { $ENV{'PWD'} = `cmd /c cd`; chop $ENV{'PWD'}; - $ENV{'PWD'} =~ s:\\:/:g ; return $ENV{'PWD'}; } @@ -455,7 +454,6 @@ sub _dos_cwd { if (!defined &Dos::GetCwd) { $ENV{'PWD'} = `command /c cd`; chop $ENV{'PWD'}; - $ENV{'PWD'} =~ s:\\:/:g ; } else { $ENV{'PWD'} = Dos::GetCwd(); } @@ -498,6 +496,7 @@ sub _epoc_cwd { *fastcwd = \&_NT_cwd; *fastgetcwd = \&_NT_cwd; *abs_path = \&fast_abs_path; + *realpath = \&fast_abs_path; } elsif ($^O eq 'os2') { # sys_cwd may keep the builtin command |