sub noxs_extensions
{
- return grep $ext{$_} eq 'noxs',keys %ext;
+ return grep $ext{$_} eq 'nonxs',keys %ext;
}
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;