diff options
| author | Jan Dubois <jand@activestate.com> | 2006-12-08 11:07:06 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-11 13:21:28 +0000 |
| commit | cf2f24a416dd5be7d3f4153bf173ec2a57eaed43 (patch) | |
| tree | 5c890bc394cfd5ee124b8e0ec263e04104cbc10b /lib/Cwd.pm | |
| parent | c79bbeaf9959de37889eda1f77c9af1212f538ec (diff) | |
| download | perl-cf2f24a416dd5be7d3f4153bf173ec2a57eaed43.tar.gz | |
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
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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'}; } |