diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-12-19 19:34:56 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-12-21 09:07:27 +0100 |
commit | 4e604983952b1d2a9eb17c9c99e4d1d4947f3010 (patch) | |
tree | 72249b007019cb60713748d7231b04e547298ef3 /installman | |
parent | 0aef0fe5d2d4655704f4ccaaacd38582e3744d71 (diff) | |
download | perl-4e604983952b1d2a9eb17c9c99e4d1d4947f3010.tar.gz |
Rationalise use of the Pod metadata structure returned by get_pod_metadata().
Nothing uses the entries in the 'master' array for the for the elements
flagged as 'aux', so don't generate them. Only buildtoc uses the the 'aux'
hash, and only the keys in sorted order, so replace the hash with a sorted
array.
All entries in the 'master' array are now defined, and references to 5
element arrays, so remove code that checks for this. Likewise, as the 'aux'
flag is no longer used, remove code related to it.
When generating the entries for README files in %our_pods in the consistency
checking code in get_pod_metadata, $_->[4] and $_->[1] will always be equal,
as no READMEs are copied from dual life modules. So use $_->[1] instead, as
this permits a future simplification.
Diffstat (limited to 'installman')
-rwxr-xr-x | installman | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/installman b/installman index e986a78410..37d9699f6b 100755 --- a/installman +++ b/installman @@ -74,7 +74,7 @@ my %do_not_install = map { ($_ => 1) } qw( # Install the main pod pages. pod2man({ map { - $_ && @$_ > 2 && !$_->[0]{aux} ? ($_->[4], $_->[2]): () + ($_->[4], $_->[2]) } @{$state->{master}} }, $opts{man1dir}, $opts{man1ext}); |