diff options
Diffstat (limited to 'installman')
| -rwxr-xr-x | installman | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/installman b/installman index 4197a8f325..f8e00e5172 100755 --- a/installman +++ b/installman @@ -79,11 +79,9 @@ open UTILS, "utils.lst" or die "Can't open 'utils.lst': $!"; while (<UTILS>) { next if /^#/; chomp; - $_ = $1 if /#.*pod\s*=\s*(\S+)/; my ($path, $leaf) = m|^(\S*/(\S+))|; - # Have we already installed the manpage for this? (ie perldoc) + # Have we already installed the manpage for this? (eg perldoc, a2p) next if $man1{$leaf}; - $leaf =~ s/\.pod\z//; pod2man({$leaf, $path}, $opts{man1dir}, $opts{man1ext}); if ($has_man1dir) { if (my ($link) = m|#.*link\s*=\s*\S+/(\S+)|) { |