diff options
| author | Prymmer/Kahn <pvhp@best.com> | 2001-05-02 16:42:33 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-03 12:57:26 +0000 |
| commit | 6b29183e8fb33dcb5d7283f31de030d13f3df8c6 (patch) | |
| tree | dc4920807296bbb34b0766e79b26b20371847ead /win32/FindExt.pm | |
| parent | a84063870a4b437cc46e9b3a8e3a90f3373d0c09 (diff) | |
| download | perl-6b29183e8fb33dcb5d7283f31de030d13f3df8c6.tar.gz | |
two fixes for win32/FindExt.pm
Message-ID: <Pine.BSF.4.21.0105022337070.24421-100000@shell8.ba.best.com>
p4raw-id: //depot/perl@9971
Diffstat (limited to 'win32/FindExt.pm')
| -rw-r--r-- | win32/FindExt.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/FindExt.pm b/win32/FindExt.pm index ea5165f1c4..efe0faf5b9 100644 --- a/win32/FindExt.pm +++ b/win32/FindExt.pm @@ -27,7 +27,7 @@ sub dynamic_extensions sub noxs_extensions { - return grep $ext{$_} eq 'noxs',keys %ext; + return grep $ext{$_} eq 'nonxs',keys %ext; } sub extensions @@ -37,7 +37,7 @@ sub extensions sub find_ext { - if (/^(.*)\.pm$/i || /^(.*)_pm.PL$/i) + if (/^(.*)\.pm$/i || /^(.*)_pm\.PL$/i || /^(.*)\.xs$/i) { my $name = $1; return if $name =~ $no; |