Tidy up some more Pod nits.

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

diff --git a/installperl b/installperl
index 59c9c52..6f4a369 100755 (executable)
--- 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{/[^/]*$}{};