Changeset 653

Timestamp:

01/17/09 16:28:50 (4 years ago)

Author:

bruno

Message:

• Avoid erasing an existing VM when called with newvm

File:

• devel/pb/bin/pb (modified) (1 diff)

devel/pb/bin/pb

@@ -1439 +1439 @@
         if (! $vmexist) {
             if ($create != 0) {
+                die("Found an existing Virtual machine $vmm. Won't overwrite") if (-r $vmm);
                 if (($vmtype eq "qemu") || ($vmtype eq "xen")) {
                     pb_system("/usr/bin/qemu-img create -f qcow2 $vmm $vmsize->{$ENV{'PBPROJ'}}","Creating the QEMU VM");