follouwp: maker array_unique private for now

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/Tools.pm b/src/PVE/Tools.pm
index c31ebeb9e62421765b96835b2a4b3b04325f22dc..ff01ebd88ca74db036db5dc70725b49236332fce 100644 (file)
--- a/src/PVE/Tools.pm
+++ b/src/PVE/Tools.pm
@@ -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;