PVE/QemuMigrate.pm: fix syntax errors

This commit is contained in:
Dietmar Maurer 2017-06-13 11:56:26 +02:00
parent 8299257eaf
commit 5009a8c755

View File

@ -281,9 +281,9 @@ sub sync_disks {
if ($attr->{cdrom}) { if ($attr->{cdrom}) {
if ($volid eq 'cdrom') { if ($volid eq 'cdrom') {
my $msg = "can't migrate local cdrom drive"; my $msg = "can't migrate local cdrom drive";
if (defined($snaprefs) && !$attr->{referenced_in_config)) if (defined($snaprefs) && !$attr->{referenced_in_config}) {
my $snapnames = join(', ', sort keys %$snaprefs); my $snapnames = join(', ', sort keys %$snaprefs);
$msg .= " (referenced in snapshot - $snapnames)" $msg .= " (referenced in snapshot - $snapnames)";
} }
&$log_error("$msg\n"); &$log_error("$msg\n");
return; return;
@ -302,7 +302,7 @@ sub sync_disks {
$sharedvm = 0; $sharedvm = 0;
$local_volumes->{$volid} = $attr->{referenced_in_config) ? 'config' : 'snapshot'; $local_volumes->{$volid} = $attr->{referenced_in_config} ? 'config' : 'snapshot';
die "local cdrom image\n" if $attr->{cdrom}; die "local cdrom image\n" if $attr->{cdrom};