This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
73e3ba0
)
improve my rewrite of installhtml’s dir scan
author
Aristotle Pagaltzis
<pagaltzis@gmx.de>
Tue, 8 Dec 2015 23:36:38 +0000
(
00:36
+0100)
committer
Aristotle Pagaltzis
<pagaltzis@gmx.de>
Tue, 8 Dec 2015 23:36:38 +0000
(
00:36
+0100)
installhtml
patch
|
blob
|
blame
|
history
diff --git
a/installhtml
b/installhtml
index
3b1eda8
..
06342a8
100644
(file)
--- 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;
}