X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installperl;h=6f4a3691e804f164593c33f71e44faf80c931aba;hb=a0f20b650099024032f274cd75500979583e0eb7;hp=93c0c9fa673c3e7361f7a0df8271ea91e710f3a2;hpb=cc69b689ee7c274593c3c386a61a06ecb909431c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installperl b/installperl
index 93c0c9f..6f4a369 100755
--- a/installperl
+++ b/installperl
@@ -158,10 +158,15 @@ 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);
 
+	# Change hypenated name like Filter-Util-Call to nested
+	# directory name Filter/Util/Call
+	$path =~ s{-}{/}g;
+
 	# strip to optional "/lib", or remove trailing component
 	$path =~ s{.*/lib\b}{} or $path =~ s{/[^/]*$}{};
 
@@ -742,11 +747,13 @@ sub installlib {
 
     $name = "$dir/$name" if $dir ne '';
 
+    return if $name eq 'ExtUtils/XSSymSet.pm' and !$Is_VMS;
+
     my $installlib = $installprivlib;
-    if ($dir =~ /^auto/ ||
+    if ($dir =~ /^auto\// ||
 	  ($name =~ /^(.*)\.(?:pm|pod)$/ && $archpms{$1}) ||
 	  ($name =~ /^(.*)\.(?:h|lib)$/i && ($Is_W32 || $Is_NetWare)) ||
-	  $name=~/^Config_(heavy\|git)\.pl\z/
+	  $name=~/^Config_(heavy|git)\.pl\z/
        ) {
 	$installlib = $installarchlib;
 	return unless $do_installarchlib;