From 6ef6d68f6c19a4a1a55e3f2d6d77cffecd70e4e2 Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Mon, 19 Oct 2020 15:32:03 +0200 Subject: [PATCH] cloudinit: use normal grep Signed-off-by: Thomas Lamprecht --- PVE/QemuServer/Cloudinit.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/PVE/QemuServer/Cloudinit.pm b/PVE/QemuServer/Cloudinit.pm index 8b8ffd48..52a4203d 100644 --- a/PVE/QemuServer/Cloudinit.pm +++ b/PVE/QemuServer/Cloudinit.pm @@ -171,7 +171,7 @@ sub configdrive2_network { $content .= " dns_search $searchdomains\n"; } - my @ifaces = grep(/^net(\d+)$/, keys %$conf); + my @ifaces = grep { /^net(\d+)$/ } keys %$conf; foreach my $iface (sort @ifaces) { (my $id = $iface) =~ s/^net//; next if !$conf->{"ipconfig$id"}; @@ -251,7 +251,7 @@ sub nocloud_network_v2 { my $dns_done; - my @ifaces = grep(/^net(\d+)$/, keys %$conf); + my @ifaces = grep { /^net(\d+)$/ } keys %$conf; foreach my $iface (sort @ifaces) { (my $id = $iface) =~ s/^net//; next if !$conf->{"ipconfig$id"}; @@ -322,7 +322,7 @@ sub nocloud_network { my $content = "version: 1\n" . "config:\n"; - my @ifaces = grep(/^net(\d+)$/, keys %$conf); + my @ifaces = grep { /^net(\d+)$/ } keys %$conf; foreach my $iface (sort @ifaces) { (my $id = $iface) =~ s/^net//; next if !$conf->{"ipconfig$id"};