Fix to installing non-xs ext's in priv lib
authorJerry D. Hedden <jdhedden@cpan.org>
Mon, 23 Feb 2009 17:37:16 +0000 (12:37 -0500)
committerDavid Mitchell <davem@iabyn.com>
Wed, 15 Apr 2009 12:26:26 +0000 (13:26 +0100)
(cherry picked from commit b925ea3bf397b0f1251c08d6e6991be69033baef)

installperl

index ee40aae..17de41d 100755 (executable)
@@ -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);