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 | |
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
-rw-r--r-- | Porting/pod_lib.pl | 2 | ||||
-rwxr-xr-x | installman | 4 | ||||
-rwxr-xr-x | installperl | 1 | ||||
-rw-r--r-- | utils.lst | 2 |
4 files changed, 4 insertions, 5 deletions
diff --git a/Porting/pod_lib.pl b/Porting/pod_lib.pl index 94cf0265fb..c86993d133 100644 --- a/Porting/pod_lib.pl +++ b/Porting/pod_lib.pl @@ -216,6 +216,8 @@ sub __prime_state { } } close $master or my_die("close pod/perl.pod: $!"); + # This has to be special-cased somewhere. Turns out this is cleanest: + push @{$state{master}}, ['a2p', 'x2p/a2p.pod', {toc_omit => 1}]; my_die("perl.pod sets flags for unknown pods: " . join ' ', sort keys %flag_set) 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+)|) { diff --git a/installperl b/installperl index a67cd6d00e..67e17da649 100755 --- a/installperl +++ b/installperl @@ -116,7 +116,6 @@ my (@scripts, @tolink); open SCRIPTS, "utils.lst" or die "Can't open utils.lst: $!"; while (<SCRIPTS>) { next if /^#/; - s/\s*#\s*pod\s*=.*//; # install script regardless of pod location next if /a2p/; # a2p is binary, to be installed separately chomp; if (/(\S*)\s*#\s*link\s*=\s*(\S*)/) { @@ -31,6 +31,6 @@ utils/shasum utils/splain utils/xsubpp utils/zipdetails -x2p/a2p # pod = x2p/a2p.pod +x2p/a2p x2p/find2perl x2p/s2p # link = x2p/psed |