follouwp: maker array_unique private for now
authorThomas Lamprecht <t.lamprecht@proxmox.com>
Tue, 23 Jul 2019 06:50:11 +0000 (08:50 +0200)
committerThomas Lamprecht <t.lamprecht@proxmox.com>
Tue, 23 Jul 2019 06:50:11 +0000 (08:50 +0200)
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
src/PVE/Tools.pm

index c31ebeb..ff01ebd 100644 (file)
@@ -1657,11 +1657,16 @@ sub array_intersect {
     return [] if @$arrays == 0;
     return $arrays->[0] if @$arrays == 1;
 
+    my $array_unique = sub {
+       my %seen = ();
+       return grep { ! $seen{ $_ }++ } @_;
+    };
+
     my $return_arr;
-    @$return_arr = array_unique(@{$arrays->[0]});
+    @$return_arr = $array_unique->(@{$arrays->[0]});
     for my $i (1 .. $#$arrays) {
        my %count = ();
-       foreach my $element (@$return_arr, array_unique(@{$arrays->[$i]})) {
+       foreach my $element (@$return_arr, $array_unique->(@{$arrays->[$i]})) {
            $count{$element}++;
        }
        $return_arr = [];
@@ -1673,9 +1678,5 @@ sub array_intersect {
     return $return_arr;
 }
 
-sub array_unique {
-    my %seen = ();
-    return grep { ! $seen{ $_ }++ } @_;
-}
 
 1;