From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 21 Sep 2001 20:05:23 +0000 (+0000)
Subject: Restore things as they were before
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa6b79577228b3de196684bc2154d2b647fb3d26;p=p5sagit%2Fp5-mst-13.2.git

Restore things as they were before
the backward compatibility police notices.

p4raw-id: //depot/perl@12117
---

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 0a1b2b8..d7e60d6 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();
     }