Configure: infnan for mixed-endian double-double

[perl5.git] / installhtml

diff --git a/installhtml b/installhtml
index 75d6adc..06342a8 100644 (file)
--- a/installhtml
+++ b/installhtml
@@ -15,10 +15,10 @@ installhtml - converts a collection of POD pages to HTML format.
 
 =head1 SYNOPSIS
 
-    installhtml  [--help] [--podpath=<name>:...:<name>] [--podroot=<name>]
-         [--htmldir=<name>] [--htmlroot=<name>]  [--norecurse] [--recurse]
-         [--splithead=<name>,...,<name>]   [--splititem=<name>,...,<name>]
-         [--ignore=<name>,...,<name>]  [--verbose]
+  installhtml  [--help] [--podpath=<name>:...:<name>] [--podroot=<name>]
+       [--htmldir=<name>] [--htmlroot=<name>]  [--norecurse] [--recurse]
+       [--splithead=<name>,...,<name>]   [--splititem=<name>,...,<name>]
+       [--ignore=<name>,...,<name>]  [--verbose]
 
 =head1 DESCRIPTION
 
@@ -500,12 +500,12 @@ sub installdir {
        no_upwards($_) or next;
        my $is_dir = -d "$podroot/$dir/$_";
        next if $is_dir and not $recurse;
-       my $target = (
-           $is_dir    ? \@dirlist :
-           s/\.pod$// ? \@podlist :
-           s/\.pm$//  ? \@pmlist  :
-           undef
-       );
+       my $target
+           = $is_dir    ? \@dirlist
+           : s/\.pod$// ? \@podlist
+           : s/\.pm$//  ? \@pmlist
+           : undef
+           ;
        push @$target, "$dir/$_" if $target;
     }