cli handler: contain no-stricture scope

to please perlcritic's highest severity level and as it makes just
sense to contain such things to the smallest possible scope.

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2023-04-11 15:09:20 +02:00
parent 646a36efce
commit 016d20715b

View File

@ -538,11 +538,12 @@ sub generate_asciidoc_synopsis {
$exename = &$get_exe_name($class); $exename = &$get_exe_name($class);
no strict 'refs'; {
my $def = ${"${class}::cmddef"}; no strict 'refs'; ## no critic (ProhibitNoStrict)
$cmddef = $def; $cmddef = ${"${class}::cmddef"};
}
if (ref($def) eq 'ARRAY') { if (ref($cmddef) eq 'ARRAY') {
print_simple_asciidoc_synopsis(); print_simple_asciidoc_synopsis();
} else { } else {
$cmddef->{help} = [ __PACKAGE__, 'help', ['cmd'] ]; $cmddef->{help} = [ __PACKAGE__, 'help', ['cmd'] ];
@ -660,8 +661,10 @@ sub run_cli_handler {
my $logid = $ENV{PVE_LOG_ID} || $exename; my $logid = $ENV{PVE_LOG_ID} || $exename;
initlog($logid); initlog($logid);
no strict 'refs'; {
$cmddef = ${"${class}::cmddef"}; no strict 'refs'; ## no critic (ProhibitNoStrict)
$cmddef = ${"${class}::cmddef"};
}
if (ref($cmddef) eq 'ARRAY') { if (ref($cmddef) eq 'ARRAY') {
$handle_simple_cmd->(\@ARGV, $preparefunc, $param_cb); $handle_simple_cmd->(\@ARGV, $preparefunc, $param_cb);