diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2001-05-16 19:02:08 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-16 17:51:50 +0000 |
| commit | 7feaa10c2dd3d47e3f70d856ee0a90782bd604fa (patch) | |
| tree | dd41a400b862cca9287d1766f0291d95f35eb2a0 | |
| parent | 777b0c87f0d15073b0bd634821e2497ea2f94b75 (diff) | |
| download | perl-7feaa10c2dd3d47e3f70d856ee0a90782bd604fa.tar.gz | |
Re: [PATCH] Abstract "utility" information from installman
Message-ID: <20010516180208.A6458@netthink.co.uk>
p4raw-id: //depot/perl@10135
| -rwxr-xr-x | installman | 4 | ||||
| -rw-r--r-- | utils.lst | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/installman b/installman index b948c78549..4a6416323c 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); } } @@ -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 |