drbd: avoid warning about undefined value
This commit is contained in:
@ -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]);
|
||||
|
||||
Reference in New Issue
Block a user