From ca1e168ad35eb069e722daf4533481d86a5b2f7b Mon Sep 17 00:00:00 2001 From: Alexandre Derumier Date: Tue, 5 Feb 2013 12:55:30 +0100 Subject: [PATCH] rbd : rbd_ls : parse base Signed-off-by: Alexandre Derumier --- PVE/Storage/RBDPlugin.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/PVE/Storage/RBDPlugin.pm b/PVE/Storage/RBDPlugin.pm index 2eb55ba..301f64d 100644 --- a/PVE/Storage/RBDPlugin.pm +++ b/PVE/Storage/RBDPlugin.pm @@ -59,8 +59,8 @@ sub rbd_ls { my $parser = sub { my $line = shift; - if ($line =~ m/^(vm-(\d+)-disk-\d+)\s+(\d+)(M|G|T)\s((\S+)\/(vm-\d+-\S+@\S+))?/) { - my ($image, $owner, $size, $unit, $parent) = ($1, $2, $3, $4, $7); + if ($line =~ m/^((vm|base)-(\d+)-disk-\d+)\s+(\d+)(M|G|T)\s((\S+)\/((vm|base)-\d+-\S+@\S+))?/) { + my ($image, $owner, $size, $unit, $parent) = ($1, $3, $4, $5, $8); $list->{$scfg->{pool}}->{$image} = { name => $image,