X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2FFindExt.pm;h=298b44f9f193086bc6386e2a6d3dd86ddf7852be;hb=410be5dba347e0340059d489e15d034982d73278;hp=b42b68a9e919ef27335ff506d62af241b6283cb4;hpb=679f4c1f843301b32867fd4e42cf54109af3830f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/win32/FindExt.pm b/win32/FindExt.pm index b42b68a..298b44f 100644 --- a/win32/FindExt.pm +++ b/win32/FindExt.pm @@ -1,6 +1,6 @@ package FindExt; -our $VERSION = '1.00'; +our $VERSION = '1.01'; use strict; use warnings; @@ -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 @@ -81,7 +82,7 @@ sub find_ext closedir $dh; for my $xxx (@items) { if ($xxx ne "DynaLoader") { - if (-f "$xxx/$xxx.xs") { + if (-f "$xxx/$xxx.xs" || -f "$xxx/$xxx.c" ) { $ext{"$_[0]$xxx"} = $static{"$_[0]$xxx"} ? 'static' : 'dynamic'; } elsif (-f "$xxx/Makefile.PL") { $ext{"$_[0]$xxx"} = 'nonxs';