From: Simon Cozens <simon@netthink.co.uk>
Date: Wed, 16 May 2001 18:02:08 +0000 (+0100)
Subject: Re: [PATCH] Abstract "utility" information from installman
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7feaa10c2dd3d47e3f70d856ee0a90782bd604fa;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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