This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #51562] Problem & "solution" for building 5.10.0 w/win32+mingw+dmake
authorkmx <kmx@volny.cz>
Mon, 4 Oct 2010 00:03:46 +0000 (17:03 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 4 Oct 2010 00:03:46 +0000 (17:03 -0700)
Run `cd`, rather than `cmd /c cd`, in miniperl on Windows.

dist/Cwd/Cwd.pm

index 50b6c4f..4889bbf 100644 (file)
@@ -747,6 +747,13 @@ sub _os2_cwd {
     return $ENV{'PWD'};
 }
 
+sub _win32_cwd_simple {
+    $ENV{'PWD'} = `cd`;
+    chomp $ENV{'PWD'};
+    $ENV{'PWD'} =~ s:\\:/:g ;
+    return $ENV{'PWD'};
+}
+
 sub _win32_cwd {
     if (eval 'defined &DynaLoader::boot_DynaLoader') {
        $ENV{'PWD'} = Win32::GetCwd();
@@ -758,7 +765,7 @@ sub _win32_cwd {
     return $ENV{'PWD'};
 }
 
-*_NT_cwd = defined &Win32::GetCwd ? \&_win32_cwd : \&_os2_cwd;
+*_NT_cwd = defined &Win32::GetCwd ? \&_win32_cwd : \&_win32_cwd_simple;
 
 sub _dos_cwd {
     if (!defined &Dos::GetCwd) {