allow to clone VM when name is not set

diff --git a/PVE/API2/Qemu.pm b/PVE/API2/Qemu.pm
index e5460023135d7ec871b206f27adc3f90606e12ef..99391aa65e706256b849966a340e7c5b7b62d3f7 100644 (file)
--- a/PVE/API2/Qemu.pm
+++ b/PVE/API2/Qemu.pm
@@ -2000,7 +2000,11 @@ __PACKAGE__->register_method({
            if ($param->{name}) {
                $newconf->{name} = $param->{name};
            } else {
-               $newconf->{name} = "Copy-of-$oldconf->{name}";
+               if ($oldconf->{name}) {
+                   $newconf->{name} = "Copy-of-$oldconf->{name}";
+               } else {
+                   $newconf->{name} = "Copy-of-VM-$vmid";
+               }
            }
 
            if ($param->{description}) {