The new smart match dispatch table for 5.10.1 onwards

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index 8d5573d..a3657ef 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -158,7 +158,8 @@ my @nonxs = grep(!/^Errno$/, split(' ', $Config{'nonxs_ext'}));
 
 find(sub {
     if (($File::Find::name =~ m{^ext\b(.*)/([^/]+)\.pm$}) &&
-        ! grep { $File::Find::name =~ /^ext\/$_/ } @nonxs)
+        ! grep { (my $dir = $_) =~ s/\//-/g;
+                 $File::Find::name =~ /^ext\/$dir/ } @nonxs)
     {
        my($path, $modname) = ($1,$2);