MT#62763 Use a block in grep expression

Warned-by: perlcritic Fixes: BuiltinFunctions::RequireBlockGrep Change-Id: Ib76819eed9c75b995026e3e9a8d4016bf5a1fbe2
6 months ago · 328bce85cc
parent 57896f8ef2
commit 328bce85cc
1 changed files with 1 additions and 1 deletions
--- a/sandbox/generate_logfile_data_inventory.pl
+++ b/sandbox/generate_logfile_data_inventory.pl
@ -659,7 +659,7 @@ sub _create_mock {
 #}

 sub _generate_combinations {
-    my @arrays = grep @$_, @_;
+    my @arrays = grep { @{$_} }, @_;
    my $min = @arrays;
    my @current = ([]);
    for my $array (@arrays) {