resolve-system-dependencies.pl: Simplify union impl

Patch by @pikajude

1 files changed, 2 insertions, 8 deletions

diff --git a/scripts/resolve-system-dependencies.pl.in b/scripts/resolve-system-dependencies.pl.in
index 1294ebba5..23416b75c 100755
--- a/scripts/resolve-system-dependencies.pl.in
+++ b/scripts/resolve-system-dependencies.pl.in
@@ -42,14 +42,8 @@ sub mkset(@) {
 
 sub union($$) {
   my ($set1, $set2) = @_;
-  my $new = {};
-  foreach my $key (keys %$set1) {
-    $new->{$key} = $set1->{$key};
-  }
-  foreach my $key (keys %$set2) {
-    $new->{$key} = $set2->{$key};
-  }
-  $new
+  my %new = (%$set1, %$set2);
+  \%new
 }
 
 sub cache_filepath($) {