From cf2f24a416dd5be7d3f4153bf173ec2a57eaed43 Mon Sep 17 00:00:00 2001
From: Jan Dubois <jand@activestate.com>
Date: Fri, 8 Dec 2006 11:07:06 -0800
Subject: First patch from: Subject: [PATCH] Move Win32::* functions from
 win32/win32.c to ext/Win32/Win32.xs Message-ID:
 <lc9kn2tb0p5sdd4q69rbc7067r4imar59r@4ax.com>

p4raw-id: //depot/perl@29509
---
 lib/Cwd.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/Cwd.pm')

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 70aa8110bf..cfc0294c2b 100644
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -660,7 +660,12 @@ sub _os2_cwd {
 }
 
 sub _win32_cwd {
-    $ENV{'PWD'} = Win32::GetCwd();
+    if (defined &DynaLoader::boot_DynaLoader) {
+	$ENV{'PWD'} = Win32::GetCwd();
+    }
+    else { # miniperl
+	chomp($ENV{'PWD'} = `cd`);
+    }
     $ENV{'PWD'} =~ s:\\:/:g ;
     return $ENV{'PWD'};
 }
-- 
cgit v1.2.1