diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-12-23 17:15:59 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-12-24 10:29:13 +0100 |
| commit | e1aae8e422ead7f20e21203fb7fb1e8ad7387c2b (patch) | |
| tree | 490b502b46c5dc12d85a13f74ea4637995b6973c /installman | |
| parent | 1cb2462dfbfd850261a04986dde33d544c98a935 (diff) | |
| download | perl-e1aae8e422ead7f20e21203fb7fb1e8ad7387c2b.tar.gz | |
Add x2p/a2p.pod to the 'master' array returned by get_pod_metadata().
This makes installman install it correctly. Flagging it as 'toc_omit' means
that everything else ignores it. This eliminates the last remaining use of the
"pod =" feature of utils.lst, permitting related code to be removed from
installperl and installman.
This change has the possibly unfortunate cosmetic side effect of installman
now installing a2p.1 first, before perl.1
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+)|) { |