two fixes for win32/FindExt.pm

Message-ID: <Pine.BSF.4.21.0105022337070.24421-100000@shell8.ba.best.com>

p4raw-id: //depot/perl@9971

diff --git a/win32/FindExt.pm b/win32/FindExt.pm
index ea5165f..efe0faf 100644 (file)
--- 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;