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

diff --git a/installperl b/installperl
index 06121e0..6f4a369 100755
--- a/installperl
+++ b/installperl
@@ -163,6 +163,10 @@ find(sub {
     {
 	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{/[^/]*$}{};
 
@@ -749,7 +753,7 @@ sub installlib {
     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;