my $snap;
my $unused = [];
+ $class->set_lock($vmid, 'snapshot-delete')
+ if (!$drivehash); # doesn't already have a 'snapshot' lock
+
my $unlink_parent = sub {
my ($confref, $new_parent) = @_;
my $conf = $class->load_config($vmid);
if (!$drivehash) {
- $class->check_lock($conf);
die "you can't delete a snapshot if vm is a template\n"
if $class->is_template($conf);
}
$snap->{snapstate} = 'delete';
} else {
delete $conf->{snapshots}->{$snapname};
- delete $conf->{lock} if $drivehash;
+ delete $conf->{lock};
foreach my $volid (@$unused) {
$class->add_unused_volume($conf, $volid);
}