fix perl scope issues

Add parameter array to foreach_volid to use is in the functions.
correct typos.

diff --git a/PVE/QemuMigrate.pm b/PVE/QemuMigrate.pm
index f0734cbb8bb25ba4b27ca7b4eebd9f9caeefbcb5..3e90a467d70bb2f35a0eb304eca146aefdc9bb38 100644 (file)
--- a/PVE/QemuMigrate.pm
+++ b/PVE/QemuMigrate.pm
@@ -164,7 +164,7 @@ sub prepare {
 
     my $running = 0;
     if (my $pid = PVE::QemuServer::check_running($vmid)) {
-       die "cant migrate running VM without --online\n" if !$online;
+       die "can't migrate running VM without --online\n" if !$online;
        $running = $pid;
 
        $self->{forcemachine} = PVE::QemuServer::qemu_machine_pxe($vmid, $conf);
@@ -248,17 +248,15 @@ sub sync_disks {
             });
         }
 
-       my $snapname;
-
        my $test_volid = sub {
-           my ($volid, $is_cdrom) = @_;
+           my ($volid, $is_cdrom, $snapname) = @_;
 
            return if !$volid;
 
            die "can't migrate local file/device '$volid'\n" if $volid =~ m|^/|;
 
            if ($is_cdrom) {
-               die "cant migrate local cdrom drive\n" if $volid eq 'cdrom';
+               die "can't migrate local cdrom drive\n" if $volid eq 'cdrom';
                return if $volid eq 'none';
                $cdromhash->{$volid} = 1;
            }
@@ -299,8 +297,8 @@ sub sync_disks {
        };
 
        PVE::QemuServer::foreach_volid($conf, $test_volid);
-       foreach $snapname (keys %{$conf->{snapshots}}) {
-           PVE::QemuServer::foreach_volid($conf->{snapshots}->{$snapname}, $test_volid);
+       foreach my $snapname (keys %{$conf->{snapshots}}) {
+           PVE::QemuServer::foreach_volid($conf->{snapshots}->{$snapname}, $test_volid, $snapname);
        }
 
        if ($self->{running} && !$sharedvm) {

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 666b756949e151631798d313ec076dee91c2b22c..4226f5031d3710db5d70a61b6044d27a2ebc4ded 100644 (file)
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -2658,7 +2658,7 @@ sub foreach_drive {
 }
 
 sub foreach_volid {
-    my ($conf, $func) = @_;
+    my ($conf, $func, @param) = @_;
 
     my $volhash = {};
 
@@ -2685,7 +2685,7 @@ sub foreach_volid {
     }
 
     foreach my $volid (keys %$volhash) {
-       &$func($volid, $volhash->{$volid});
+       &$func($volid, $volhash->{$volid}, @param);
     }
 }