From 5045e0b77a7f08d1cb6807229b2d019552225f9c Mon Sep 17 00:00:00 2001
From: Thomas Lamprecht <t.lamprecht@proxmox.com>
Date: Mon, 23 Nov 2020 15:26:14 +0100
Subject: [PATCH] perlcritic: don't modify $_ in list functions, use for

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
---
 PVE/Diskmanage.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PVE/Diskmanage.pm b/PVE/Diskmanage.pm
index 7a0f963..a46cc73 100644
--- a/PVE/Diskmanage.pm
+++ b/PVE/Diskmanage.pm
@@ -502,7 +502,7 @@ sub get_disks {
 	    die "disks is not a string or array reference\n";
 	}
 	# we get cciss/c0d0 but need cciss!c0d0
-	map { s|cciss/|cciss!| } @$disks;
+	$_ =~ s|cciss/|cciss!| for @$disks;
 
 	$disk_regex = "(?:" . join('|', @$disks) . ")";
     }