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 /win32/FindExt.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 'win32/FindExt.pm')
| -rw-r--r-- | win32/FindExt.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/win32/FindExt.pm b/win32/FindExt.pm index b73d777d03..690be6d882 100644 --- a/win32/FindExt.pm +++ b/win32/FindExt.pm @@ -14,9 +14,10 @@ my $ext; my %static; sub getcwd { - $ENV{'PWD'} = Win32::GetCwd(); - $ENV{'PWD'} =~ s:\\:/:g ; - return $ENV{'PWD'}; + $_ = `cd`; + chomp; + s:\\:/:g ; + return $ENV{'PWD'} = $_; } sub set_static_extensions |