proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-04-28 12:10:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

section config: update code style

Browse Source 
Replace `foreach` with `for` and use postfix deref instead of block
(circumfix) dereference (`$foo->%*` instead of `%$foo`).

Furthermore, make `format_config_line` a private sub instead of
unnecessarily declaring it as an anonymous subroutine, which avoids
the `&$sub_ref(...)` syntax altogether.

Signed-off-by: Max Carrara <m.carrara@proxmox.com>
This commit is contained in:
Max Carrara 2024-10-31 18:07:17 +01:00 committed by Thomas Lamprecht
parent 142fb2b245
commit 090497ec08
1 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
src/PVE/SectionConfig.pm
View File

@ -478,7 +478,7 @@ sub createSchema {
my $props = $base || {};
if (!$class->has_isolated_properties()) {
foreach my $p (keys %$propertyList) {
for my $p (keys $propertyList->%*) {
next if $skip_type && $p eq 'type';
if (!$propertyList->{$p}->{optional}) {
@ -491,7 +491,7 @@ sub createSchema {
my $copts = $class->options();
$required = 0 if defined($copts->{$p}) && $copts->{$p}->{optional};
foreach my $t (keys %$plugins) {
for my $t (keys $plugins->%*) {
my $opts = $pdata->{options}->{$t} || {};
$required = 0 if !defined($opts->{$p}) || $opts->{$p}->{optional};
}
@ -506,7 +506,7 @@ sub createSchema {
}
}
} else {
for my $type (sort keys %$plugins) {
for my $type (sort keys $plugins->%*) {
my $opts = $pdata->{options}->{$type} || {};
for my $key (sort keys $opts->%*) {
my $schema = $class->get_property_schema($type, $key);
@ -584,7 +584,7 @@ sub updateSchema {
my $filter_type = $single_class ? $class->type() : undef;
if (!$class->has_isolated_properties()) {
foreach my $p (keys %$propertyList) {
for my $p (keys $propertyList->%*) {
next if $p eq 'type';
my $copts = $class->options();
@ -600,7 +600,7 @@ sub updateSchema {
$modifyable = 1 if defined($copts->{$p}) && !$copts->{$p}->{fixed};
foreach my $t (keys %$plugins) {
for my $t (keys $plugins->%*) {
my $opts = $pdata->{options}->{$t} || {};
next if !defined($opts->{$p});
$modifyable = 1 if !$opts->{$p}->{fixed};
@ -610,7 +610,7 @@ sub updateSchema {
$props->{$p} = $propertyList->{$p};
}
} else {
for my $type (sort keys %$plugins) {
for my $type (sort keys $plugins->%*) {
my $opts = $pdata->{options}->{$type} || {};
for my $key (sort keys $opts->%*) {
next if $opts->{$key}->{fixed};
@ -679,7 +679,7 @@ sub init {
my $pdata = $class->private();
foreach my $k (qw(options plugins plugindata propertyList isolatedPropertyList)) {
for my $k (qw(options plugins plugindata propertyList isolatedPropertyList)) {
$pdata->{$k} = {} if !$pdata->{$k};
}
@ -687,9 +687,9 @@ sub init {
my $propertyList = $pdata->{propertyList};
my $isolatedPropertyList = $pdata->{isolatedPropertyList};
foreach my $type (keys %$plugins) {
for my $type (keys $plugins->%*) {
my $props = $plugins->{$type}->properties();
foreach my $p (keys %$props) {
for my $p (keys $props->%*) {
my $res;
if ($property_isolation) {
$res = $isolatedPropertyList->{$type}->{$p} = {};
@ -698,16 +698,16 @@ sub init {
$res = $propertyList->{$p} = {};
}
my $data = $props->{$p};
for my $a (keys %$data) {
for my $a (keys $data->%*) {
$res->{$a} = $data->{$a};
}
$res->{optional} = 1;
}
}
foreach my $type (keys %$plugins) {
for my $type (keys $plugins->%*) {
my $opts = $plugins->{$type}->options();
foreach my $p (keys %$opts) {
for my $p (keys $opts->%*) {
my $prop;
if ($property_isolation) {
$prop = $isolatedPropertyList->{$type}->{$p};
@ -718,7 +718,7 @@ sub init {
# automatically the properties to options (if not specified explicitly)
if ($property_isolation) {
foreach my $p (keys $isolatedPropertyList->{$type}->%*) {
for my $p (keys $isolatedPropertyList->{$type}->%*) {
next if $opts->{$p};
$opts->{$p} = {};
$opts->{$p}->{optional} = 1 if $isolatedPropertyList->{$type}->{$p}->{optional};
@ -729,7 +729,7 @@ sub init {
}
$propertyList->{type}->{type} = 'string';
$propertyList->{type}->{enum} = [sort keys %$plugins];
$propertyList->{type}->{enum} = [sort keys $plugins->%*];
}
=head3 $base->lookup($type)
@ -959,7 +959,7 @@ sub check_value {
}
PVE::JSONSchema::check_prop($value, $checkschema, '', $errors);
if (scalar(keys %$errors)) {
if (scalar(keys $errors->%*)) {
die "$errors->{$key}\n" if $errors->{$key};
die "$errors->{_root}\n" if $errors->{_root};
die "unknown error\n";
@ -1239,7 +1239,7 @@ sub parse_config {
}
while ($line = $nextline->()) {
next if $skip; # skip
next if $skip;
$errprefix = "file $filename line $lineno";
@ -1268,7 +1268,7 @@ sub parse_config {
};
if (my $err = $@) {
warn "$errprefix (section '$sectionId') - unable to parse value of '$k': $err";
push @$errors, {
push $errors->@*, {
context => $errprefix,
section => $sectionId,
key => $k,
@ -1305,7 +1305,7 @@ sub parse_config {
order => $order,
digest => $digest
};
$cfg->{errors} = $errors if scalar(@$errors) > 0;
$cfg->{errors} = $errors if scalar($errors->@*) > 0;
return $cfg;
}
@ -1373,7 +1373,7 @@ sub check_config {
my $settings = { type => $type };
foreach my $k (keys %$config) {
for my $k (keys $config->%*) {
my $value = $config->{$k};
die "can't change value of fixed parameter '$k'\n"
@ -1389,7 +1389,7 @@ sub check_config {
if ($create) {
# check if we have a value for all required options
foreach my $k (keys %$opts) {
for my $k (keys $opts->%*) {
next if $opts->{$k}->{optional};
die "missing value for required option '$k'\n"
if !defined($config->{$k});
@ -1399,7 +1399,7 @@ sub check_config {
return $settings;
}
my $format_config_line = sub {
my sub format_config_line {
my ($schema, $key, $value) = @_;
my $ct = $schema->{type};
@ -1482,17 +1482,17 @@ sub write_config {
my $order = $cfg->{order};
my $maxpri = 0;
foreach my $sectionId (keys %$ids) {
for my $sectionId (keys $ids->%*) {
my $pri = $order->{$sectionId};
$maxpri = $pri if $pri && $pri > $maxpri;
}
foreach my $sectionId (keys %$ids) {
for my $sectionId (keys $ids->%*) {
if (!defined ($order->{$sectionId})) {
$order->{$sectionId} = ++$maxpri;
}
}
foreach my $sectionId (sort {$order->{$a} <=> $order->{$b}} keys %$ids) {
for my $sectionId (sort {$order->{$a} <=> $order->{$b}} keys $ids->%*) {
my $scfg = $ids->{$sectionId};
my $type = $scfg->{type};
my $opts = $pdata->{options}->{$type};
@ -1507,7 +1507,7 @@ sub write_config {
if (!$opts && $allow_unknown) {
$done_hash->{type} = 1;
my @first = exists($scfg->{comment}) ? ('comment') : ();
for my $k (@first, sort keys %$scfg) {
for my $k (@first, sort keys $scfg->%*) {
next if defined($done_hash->{$k});
$done_hash->{$k} = 1;
my $v = $scfg->{$k};
@ -1527,7 +1527,7 @@ sub write_config {
my $k = 'comment';
my $v = $class->encode_value($type, $k, $scfg->{$k});
my $prop = $class->get_property_schema($type, $k);
$data .= &$format_config_line($prop, $k, $v);
$data .= format_config_line($prop, $k, $v);
}
$data .= "\tdisable\n" if $scfg->{disable} && !$done_hash->{disable};
@ -1535,8 +1535,8 @@ sub write_config {
$done_hash->{comment} = 1;
$done_hash->{disable} = 1;
my @option_keys = sort keys %$opts;
foreach my $k (@option_keys) {
my @option_keys = sort keys $opts->%*;
for my $k (@option_keys) {
next if defined($done_hash->{$k});
next if $opts->{$k}->{optional};
$done_hash->{$k} = 1;
@ -1545,16 +1545,16 @@ sub write_config {
if !defined ($v);
$v = $class->encode_value($type, $k, $v);
my $prop = $class->get_property_schema($type, $k);
$data .= &$format_config_line($prop, $k, $v);
$data .= format_config_line($prop, $k, $v);
}
foreach my $k (@option_keys) {
for my $k (@option_keys) {
next if defined($done_hash->{$k});
my $v = $scfg->{$k};
next if !defined($v);
$v = $class->encode_value($type, $k, $v);
my $prop = $class->get_property_schema($type, $k);
$data .= &$format_config_line($prop, $k, $v);
$data .= format_config_line($prop, $k, $v);
}
$out .= "$data\n";