diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-11-28 23:38:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-29 02:28:06 +0000 |
| commit | 53fb3a93d5c9d966711a0c5ebec2652fa815e12f (patch) | |
| tree | cc377569ff536e126b6c2f426503ef115061d566 | |
| parent | 0d6d723397915f15904338d75c50e8db0ddae953 (diff) | |
| download | perl-53fb3a93d5c9d966711a0c5ebec2652fa815e12f.tar.gz | |
Re: [ID 20011127.153] installman error
Message-ID: <20011128233843.N37621@plum.flirble.org>
p4raw-id: //depot/perl@13351
| -rwxr-xr-x | installman | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/installman b/installman index 2eaab1bc16..360d4f34f7 100755 --- a/installman +++ b/installman @@ -83,7 +83,7 @@ while (<UTILS>) { next if /^#/; chomp; $_ = $1 if /#.*pod\s*=\s*(\S+)/; - my ($where, $what) = m|^(.*)/(\S+)|; + my ($where, $what) = m|^(\S*)/(\S+)|; pod2man($where, $opts{man1dir}, $opts{man1ext}, $what); if ($has_man1dir) { if (my ($where2, $what2) = m|#.*link\s*=\s*(\S+)/(\S+)|) { |