Adding the new test would be swell.

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

diff --git a/installman b/installman
index b948c78..dad9182 100755 (executable)
--- a/installman
+++ b/installman
@@ -80,9 +80,9 @@ while (<UTILS>) {
     next if /^#/;
     chomp;
     $_ = $1 if /#.*pod\s*=\s*(\S+)/;
-    my ($where, $what) = m|^(.*)/(.*)|;
+    my ($where, $what) = m|^(.*?)/(\S+)|;
     runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
-    if (($where, $what) = /#.*link\s*=\s*(\S+)/) {
+    if (($where, $what) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
         runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
     }
 }