diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-21 20:05:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-21 20:05:23 +0000 |
| commit | aa6b79577228b3de196684bc2154d2b647fb3d26 (patch) | |
| tree | de45adabf7c70f88b57ed7880bd7a4151b429d5a /lib/Cwd.pm | |
| parent | cade0c02de13e52be76bdb1f796759b43676baa2 (diff) | |
| download | perl-aa6b79577228b3de196684bc2154d2b647fb3d26.tar.gz | |
Restore things as they were before
the backward compatibility police notices.
p4raw-id: //depot/perl@12117
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 0a1b2b85a7..d7e60d6dc9 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -437,11 +437,13 @@ sub _vms_abs_path { sub _os2_cwd { $ENV{'PWD'} = `cmd /c cd`; chop $ENV{'PWD'}; + $ENV{'PWD'} =~ s:\\:/:g ; return $ENV{'PWD'}; } sub _win32_cwd { $ENV{'PWD'} = Win32::GetCwd(); + $ENV{'PWD'} =~ s:\\:/:g ; return $ENV{'PWD'}; } @@ -454,6 +456,7 @@ sub _dos_cwd { if (!defined &Dos::GetCwd) { $ENV{'PWD'} = `command /c cd`; chop $ENV{'PWD'}; + $ENV{'PWD'} =~ s:\\:/:g ; } else { $ENV{'PWD'} = Dos::GetCwd(); } |