resolve-system-dependencies.pl: Simplify union impl

Patch by @pikajude
This commit is contained in:
Shea Levy 2015-10-21 18:18:03 -04:00
parent 9155fbd386
commit fef8c3a5ab

View file

@ -42,14 +42,8 @@ sub mkset(@) {
sub union($$) { sub union($$) {
my ($set1, $set2) = @_; my ($set1, $set2) = @_;
my $new = {}; my %new = (%$set1, %$set2);
foreach my $key (keys %$set1) { \%new
$new->{$key} = $set1->{$key};
}
foreach my $key (keys %$set2) {
$new->{$key} = $set2->{$key};
}
$new
} }
sub cache_filepath($) { sub cache_filepath($) {