Go on record about the binary backward incompatibility.

[p5sagit/p5-mst-13.2.git] / win32 / FindExt.pm

diff --git a/win32/FindExt.pm b/win32/FindExt.pm
index ea5165f..8f1952f 100644 (file)
--- a/win32/FindExt.pm
+++ b/win32/FindExt.pm
@@ -1,10 +1,17 @@
 package FindExt;
+
+our $VERSION = '1.00';
+
+# We (probably) have not got a Config.pm yet 
+BEGIN { $INC{'Config.pm'} = __FILE__ };
+
 use strict;
 use File::Find;
 use File::Basename;
 use Cwd;
 
-my $no = join('|',qw(DynaLoader GDBM_File ODBM_File NDBM_File DB_File Syslog Sysv));
+my $no = join('|',qw(DynaLoader GDBM_File ODBM_File NDBM_File DB_File
+                    Syslog SysV Langinfo));
 $no = qr/^(?:$no)$/i;
 
 my %ext;
@@ -27,7 +34,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 +44,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;