fix a perl warning when failing to parse a new drive string

diff --git a/PVE/API2/Qemu.pm b/PVE/API2/Qemu.pm
index 66dc69a21486ff2503fa6ecb00c9c34910aa814c..34a5d5d906ad37569d2947df2d8bd133a2c172ed 100644 (file)
--- a/PVE/API2/Qemu.pm
+++ b/PVE/API2/Qemu.pm
@@ -943,6 +943,7 @@ my $update_vm_api  = sub {
        if (PVE::QemuServer::is_valid_drivename($opt)) {
            # cleanup drive path
            my $drive = PVE::QemuServer::parse_drive($opt, $param->{$opt});
+           raise_param_exc({ $opt => "unable to parse drive options" }) if !$drive;
            PVE::QemuServer::cleanup_drive_path($opt, $storecfg, $drive);
            $param->{$opt} = PVE::QemuServer::print_drive($vmid, $drive);
        } elsif ($opt =~ m/^net(\d+)$/) {