From 0d732d1615f7769506f3ce9830758e5b4b7a637f Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Tue, 11 Nov 2014 06:52:10 +0100 Subject: [PATCH] parse_vm_config: correctly handle $descr Signed-off-by: Dietmar Maurer --- PVE/QemuServer.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm index af516886..87c95d4c 100644 --- a/PVE/QemuServer.pm +++ b/PVE/QemuServer.pm @@ -1837,7 +1837,7 @@ sub parse_vm_config { my $res = { digest => Digest::SHA::sha1_hex($raw), snapshots => {}, - pending => {} + pending => {}, }; $filename =~ m|/qemu-server/(\d+)\.conf$| @@ -1853,10 +1853,12 @@ sub parse_vm_config { next if $line =~ m/^\s*$/; if ($line =~ m/^\[PENDING\]\s*$/i) { + $conf->{description} = $descr if $descr; + $descr = ''; $conf = $res->{pending} = {}; next; - }elsif ($line =~ m/^\[([a-z][a-z0-9_\-]+)\]\s*$/i) { + } elsif ($line =~ m/^\[([a-z][a-z0-9_\-]+)\]\s*$/i) { my $snapname = $1; $conf->{description} = $descr if $descr; $descr = '';