This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
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)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Feb 2009 09:05:40 +0000 (10:05 +0100)
installperl

index 8d5573d..a3657ef 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);