From d2b0374d4888b5aad6f195db202fbd46569b153c Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Wed, 12 Oct 2011 11:38:43 +0200 Subject: [PATCH] do not merge comma separated lists with zero separated lists --- data/PVE/Tools.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/data/PVE/Tools.pm b/data/PVE/Tools.pm index 5e8e7bf..985b31e 100644 --- a/data/PVE/Tools.pm +++ b/data/PVE/Tools.pm @@ -351,7 +351,9 @@ sub run_command { sub split_list { my $listtxt = shift || ''; - $listtxt =~ s/[,;\0]/ /g; + return split (/\0/, $listtxt) if $listtxt =~ m/\0/; + + $listtxt =~ s/[,;]/ /g; $listtxt =~ s/^\s+//; my @data = split (/\s+/, $listtxt); -- 2.39.2