machine: get current: improve naming and style

No functional change intended.

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fiona Ebner 2023-11-10 14:24:46 +01:00 committed by Thomas Lamprecht
parent c351659d87
commit 081eed3b79

View File

@ -19,13 +19,13 @@ sub machine_type_is_q35 {
} }
sub current_from_query_machines { sub current_from_query_machines {
my ($res) = @_; my ($machines) = @_;
my ($current, $pve_version, $default); my ($current, $pve_version, $default);
foreach my $e (@$res) { for my $machine ($machines->@*) {
$default = $e->{name} if $e->{'is-default'}; $default = $machine->{name} if $machine->{'is-default'};
$current = $e->{name} if $e->{'is-current'}; $current = $machine->{name} if $machine->{'is-current'};
$pve_version = $e->{'pve-version'} if $e->{'pve-version'}; $pve_version = $machine->{'pve-version'} if $machine->{'pve-version'};
} }
$current .= "+$pve_version" if $current && $pve_version; $current .= "+$pve_version" if $current && $pve_version;