No functional change intended.
Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
}
sub current_from_query_machines {
}
sub current_from_query_machines {
my ($current, $pve_version, $default);
my ($current, $pve_version, $default);
- foreach my $e (@$res) {
- $default = $e->{name} if $e->{'is-default'};
- $current = $e->{name} if $e->{'is-current'};
- $pve_version = $e->{'pve-version'} if $e->{'pve-version'};
+ for my $machine ($machines->@*) {
+ $default = $machine->{name} if $machine->{'is-default'};
+ $current = $machine->{name} if $machine->{'is-current'};
+ $pve_version = $machine->{'pve-version'} if $machine->{'pve-version'};
}
$current .= "+$pve_version" if $current && $pve_version;
}
$current .= "+$pve_version" if $current && $pve_version;