Changeset 653 in ProjectBuilder for devel/pb/bin

Timestamp:

Jan 17, 2009, 4:28:50 PM (16 years ago)

Author:

Bruno Cornec

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");