diff options
| author | Aristotle Pagaltzis <pagaltzis@gmx.de> | 2015-12-09 00:36:38 +0100 |
|---|---|---|
| committer | Aristotle Pagaltzis <pagaltzis@gmx.de> | 2015-12-09 00:36:38 +0100 |
| commit | 7e7b3f792cd41d2ef1db134775922f4fba336b40 (patch) | |
| tree | d6b90c87e2ea94a122498c7be96a9d6566e7799c /installhtml | |
| parent | 73e3ba067fbc513091128243c6c002d95b0c1bc5 (diff) | |
| download | perl-7e7b3f792cd41d2ef1db134775922f4fba336b40.tar.gz | |
improve my rewrite of installhtml’s dir scan
Diffstat (limited to 'installhtml')
| -rw-r--r-- | installhtml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/installhtml b/installhtml index 3b1eda8c6b..06342a8425 100644 --- a/installhtml +++ b/installhtml @@ -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; } |