diff options
author | Richard Levitte <levitte@openssl.org> | 2016-04-06 15:02:57 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-04-06 15:21:27 +0200 |
commit | 2110febb117f477cbcaf6c8fe724848b57f5d433 (patch) | |
tree | f2e2e47c5a77ff1fb72fa0aaaca9a202bfe65007 /Configure | |
parent | 1c9f511793ad2fa8249a0d010cf2471769d5cd29 (diff) |
Perl cleanup: don't create lists unnecessarily
Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'Configure')
-rwxr-xr-x | Configure | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -743,9 +743,9 @@ while (@tocheckfor) { while (@cascade_copy) { my ($test, $descendents) = (shift @cascade_copy, shift @cascade_copy); if (ref($test) eq "CODE" ? $test->() : defined($disabled{$test})) { - map { + foreach(grep { !defined($disabled{$_}) } @$descendents) { $new_tocheckfor{$_} = 1; $disabled{$_} = "forced"; - } grep { !defined($disabled{$_}) } @$descendents; + } } } @tocheckfor = (keys %new_tocheckfor); @@ -2128,12 +2128,12 @@ sub resolve_config { # the config that had it. delete $inherited_config{template}; - map { + foreach (keys %inherited_config) { if (!$combined_inheritance{$_}) { $combined_inheritance{$_} = []; } push @{$combined_inheritance{$_}}, $inherited_config{$_}; - } keys %inherited_config; + } } } @@ -2415,7 +2415,7 @@ sub quotify { my $processor = defined($processors{$for}) ? $processors{$for} : sub { shift; }; - map { $processor->($_); } @_; + return map { $processor->($_); } @_; } # collect_from_file($filename, $line_concat_cond_re, $line_concat) |