From 28438925dc51c31e129a2ccc4747ae2e96058c25 Mon Sep 17 00:00:00 2001 From: Fabian Ebner Date: Mon, 2 Mar 2020 11:33:42 +0100 Subject: [PATCH] Replace drivename_hash with drivedesc_hash which contains the full descriptions of the drives, and make parse_drive not depend on $confdesc anymore. In preparation to moving drive-related code to its own module. Signed-off-by: Fabian Ebner --- PVE/QemuServer.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm index dc65a30b..cb9ba5b8 100644 --- a/PVE/QemuServer.pm +++ b/PVE/QemuServer.pm @@ -948,7 +948,7 @@ sub verify_volume_id_or_qm_path { return $volid; } -my $drivename_hash; +my $drivedesc_hash; my %drivedesc_base = ( volume => { alias => 'file' }, @@ -1399,26 +1399,26 @@ for (my $i = 0; $i < $MAX_HOSTPCI_DEVICES; $i++) { } for (my $i = 0; $i < $MAX_IDE_DISKS; $i++) { - $drivename_hash->{"ide$i"} = 1; + $drivedesc_hash->{"ide$i"} = $idedesc; $confdesc->{"ide$i"} = $idedesc; } for (my $i = 0; $i < $MAX_SATA_DISKS; $i++) { - $drivename_hash->{"sata$i"} = 1; + $drivedesc_hash->{"sata$i"} = $satadesc; $confdesc->{"sata$i"} = $satadesc; } for (my $i = 0; $i < $MAX_SCSI_DISKS; $i++) { - $drivename_hash->{"scsi$i"} = 1; + $drivedesc_hash->{"scsi$i"} = $scsidesc; $confdesc->{"scsi$i"} = $scsidesc ; } for (my $i = 0; $i < $MAX_VIRTIO_DISKS; $i++) { - $drivename_hash->{"virtio$i"} = 1; + $drivedesc_hash->{"virtio$i"} = $virtiodesc; $confdesc->{"virtio$i"} = $virtiodesc; } -$drivename_hash->{efidisk0} = 1; +$drivedesc_hash->{efidisk0} = $efidisk_desc; $confdesc->{efidisk0} = $efidisk_desc; for (my $i = 0; $i < $MAX_USB_DEVICES; $i++) { @@ -1495,7 +1495,7 @@ sub valid_drive_names { sub is_valid_drivename { my $dev = shift; - return defined($drivename_hash->{$dev}); + return defined($drivedesc_hash->{$dev}); } sub option_exists { @@ -1633,7 +1633,7 @@ sub parse_drive { } my $desc = $key =~ /^unused\d+$/ ? $alldrive_fmt - : $confdesc->{$key}->{format}; + : $drivedesc_hash->{$key}->{format}; if (!$desc) { warn "invalid drive key: $key\n"; return undef;