path: corretly implement path to snapshots

This commit is contained in:
Dietmar Maurer
2015-08-27 12:03:46 +02:00
parent 1f79bb07f1
commit e67069eb58
8 changed files with 37 additions and 12 deletions

View File

@ -191,9 +191,15 @@ my $find_free_diskname = sub {
};
sub path {
my ($class, $scfg, $volname, $storeid) = @_;
my ($class, $scfg, $volname, $storeid, $snapname) = @_;
my ($vtype, $name, $vmid) = $class->parse_volname($volname);
my ($vtype, $name, $vmid, undef, undef, $isBase, $format) =
$class->parse_volname($volname);
# Note: qcow2/qed has internal snapshot, so path is always
# the same (with or without snapshot => same file).
die "can't snapshot this image format\n"
if defined($snapname) && $format !~ m/^(qcow2|qed)$/;
my $path = undef;
if ($vtype eq 'images') {