Re: [PATCH] Abstract "utility" information from installman

Message-ID: <20010516180208.A6458@netthink.co.uk>

p4raw-id: //depot/perl@10135

diff --git a/installman b/installman
index b948c78..4a64163 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);
     }
 }

diff --git a/utils.lst b/utils.lst
index a3cd5a8..9da0324 100644 (file)
--- a/utils.lst
+++ b/utils.lst
@@ -7,7 +7,7 @@ utils/perlbug
 utils/pl2pm
 utils/splain
 utils/dproffpp
-x2p/s2p         # link = xsp/psed
+x2p/s2p         # link = x2p/psed
 x2p/findperl
 x2p/a2p         # pod = x2p/a2p.pod
 pod/pod2man