This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore things as they were before
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Sep 2001 20:05:23 +0000 (20:05 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Sep 2001 20:05:23 +0000 (20:05 +0000)
the backward compatibility police notices.

p4raw-id: //depot/perl@12117

lib/Cwd.pm

index 0a1b2b8..d7e60d6 100644 (file)
@@ -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();
     }