improve my rewrite of installhtml’s dir scan
authorAristotle Pagaltzis <pagaltzis@gmx.de>
Tue, 8 Dec 2015 23:36:38 +0000 (00:36 +0100)
committerAristotle Pagaltzis <pagaltzis@gmx.de>
Tue, 8 Dec 2015 23:36:38 +0000 (00:36 +0100)
installhtml

index 3b1eda8..06342a8 100644 (file)
@@ -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;
     }