delete ram state files when restoring a backup

[qemu-server.git] / PVE / QemuServer.pm

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 223c2b7dd909aa9899a19cc9e15f0ddd47b73e14..7bf3e4d5e7487f94fdd4ddb048af3374db40f630 100644 (file)
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -5562,6 +5562,18 @@ sub restore_vma_archive {
                    PVE::Storage::vdisk_free($cfg, $volid);
                }
            });
+
+           # delete vmstate files
+           # since after the restore we have no snapshots anymore
+           foreach my $snapname (keys %{$oldconf->{snapshots}}) {
+               my $snap = $oldconf->{snapshots}->{$snapname};
+               if ($snap->{vmstate}) {
+                   eval { PVE::Storage::vdisk_free($cfg, $snap->{vmstate}); };
+                   if (my $err = $@) {
+                       warn $err;
+                   }
+               }
+           }
        }
 
        my $map = {};