From 4c28a8bc6954e8783b14b0a01d8a7cb73830754a Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Tue, 23 Jul 2019 08:50:11 +0200 Subject: [PATCH] follouwp: maker array_unique private for now Signed-off-by: Thomas Lamprecht --- src/PVE/Tools.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/PVE/Tools.pm b/src/PVE/Tools.pm index c31ebeb..ff01ebd 100644 --- 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; -- 2.39.2