From: Prymmer/Kahn <pvhp@best.com>
Date: Wed, 2 May 2001 23:42:33 +0000 (-0700)
Subject: two fixes for win32/FindExt.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b29183e8fb33dcb5d7283f31de030d13f3df8c6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;