From 328bce85cc40db0db22b8299a137f6b9eeca13fd Mon Sep 17 00:00:00 2001
From: Guillem Jover <gjover@sipwise.com>
Date: Tue, 6 May 2025 21:00:14 +0200
Subject: [PATCH] MT#62763 Use a block in grep expression

Warned-by: perlcritic
Fixes: BuiltinFunctions::RequireBlockGrep
Change-Id: Ib76819eed9c75b995026e3e9a8d4016bf5a1fbe2
---
 sandbox/generate_logfile_data_inventory.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sandbox/generate_logfile_data_inventory.pl b/sandbox/generate_logfile_data_inventory.pl
index bf2324a52e..5e166d0190 100644
--- 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) {