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 | 76c613577680459b8f67717f6b15120277751a14 (patch) | |
| tree | dd41a400b862cca9287d1766f0291d95f35eb2a0 /installman | |
| parent | 88084057494574e536c8436ea3a0601e4a97cfea (diff) | |
| download | perl-76c613577680459b8f67717f6b15120277751a14.tar.gz | |
Re: [PATCH] Abstract "utility" information from installman
Message-ID: <20010516180208.A6458@netthink.co.uk>
p4raw-id: //depot/perl@10135
Diffstat (limited to 'installman')
| -rwxr-xr-x | installman | 4 |
1 files changed, 2 insertions, 2 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); } } |