fix various perlcritic lints

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht
2023-04-11 17:16:19 +02:00
parent 529b4f9de9
commit 5c4d3db5ec

View File

@ -222,7 +222,7 @@ if (@ARGV && $ARGV[0] eq 'print') {
}
print("Setting up Mocking\n");
$diskmanage_module = new Test::MockModule('PVE::Diskmanage', no_auto => 1);
$diskmanage_module = Test::MockModule->new('PVE::Diskmanage', no_auto => 1);
$diskmanage_module->mock('run_command' => \&mocked_run_command);
print("\tMocked run_command\n");
$diskmanage_module->mock('dir_glob_foreach' => \&mocked_dir_glob_foreach);
@ -246,7 +246,7 @@ $diskmanage_module->mock('dir_is_empty' => sub {
print("\tMocked dir_is_empty\n");
$diskmanage_module->mock('check_bin' => sub { return 1; });
print("\tMocked check_bin\n");
my $tools_module= new Test::MockModule('PVE::ProcFSTools', no_auto => 1);
my $tools_module= Test::MockModule->new('PVE::ProcFSTools', no_auto => 1);
$tools_module->mock('parse_proc_mounts' => \&mocked_parse_proc_mounts);
print("\tMocked parse_proc_mounts\n");
print("Done Setting up Mocking\n\n");