mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

improve my rewrite of installhtml’s dir scan

Browse Source
This commit is contained in:
Aristotle Pagaltzis 2015-12-09 00:36:38 +01:00
parent 73e3ba067f
commit 7e7b3f792c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
installhtml
View 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;
}