Rationalise use of the Pod metadata structure returned by get_pod_metadata().

[perl5.git] / installman

diff --git a/installman b/installman
index e986a78..37d9699 100755 (executable)
--- 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});