drbd: avoid warning about undefined value

diff --git a/PVE/Storage/DRBDPlugin.pm b/PVE/Storage/DRBDPlugin.pm
index 61e0eb78bbe69e987059c09dfc4940924c8edd8c..0179ad859cc7f8a0727b2dac028a1458e141da86 100644 (file)
--- a/PVE/Storage/DRBDPlugin.pm
+++ b/PVE/Storage/DRBDPlugin.pm
@@ -157,14 +157,14 @@ sub alloc_image {
     die "unsupported format '$fmt'" if $fmt ne 'raw';
 
     die "illegal name '$name' - should be 'vm-$vmid-*'\n" 
-       if  $name && $name !~ m/^vm-$vmid-/;
+       if defined($name) && $name !~ m/^vm-$vmid-/;
 
     my $hdl = connect_drbdmanage_service();
     my $volumes = drbd_list_volumes($hdl);
 
-    die "volume '$name' already exists\n" if $volumes->{$name};
+    die "volume '$name' already exists\n" if defined($name) && $volumes->{$name};
     
-    if (!$name) {      
+    if (!defined($name)) {     
        for (my $i = 1; $i < 100; $i++) {
            my $tn = "vm-$vmid-disk-$i";
            if (!defined ($volumes->{$tn})) {
@@ -175,7 +175,7 @@ sub alloc_image {
     }
 
     die "unable to allocate an image name for VM $vmid in storage '$storeid'\n"
-       if !$name;
+       if !defined($name);
     
     my ($rc, $res) = $hdl->create_resource($name, {});
     check_drbd_rc($rc->[0]);