fix various perlcritic lints

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/LXC/Tools.pm b/src/PVE/LXC/Tools.pm
index ce37cee0f583b694a57c4b65f94ff0c8ff76a801..1d837685374032a2b4ecf39e6498f579cd4da83e 100644 (file)
--- a/src/PVE/LXC/Tools.pm
+++ b/src/PVE/LXC/Tools.pm
@@ -1,7 +1,9 @@
 # Module for lxc related functionality used mostly by our hooks.
-
 package PVE::LXC::Tools;
 
+use strict;
+use warnings;
+
 use Errno qw(ENOSYS);
 
 use PVE::SafeSyslog;

diff --git a/src/PVE/VZDump/LXC.pm b/src/PVE/VZDump/LXC.pm
index 657f25008cd4830594d52c52192db08a7022d181..5783ffaf342f783c077d02d54812ea43bd0f4be1 100644 (file)
--- a/src/PVE/VZDump/LXC.pm
+++ b/src/PVE/VZDump/LXC.pm
@@ -70,7 +70,7 @@ sub new {
     PVE::VZDump::check_bin('lxc-stop');
     PVE::VZDump::check_bin('lxc-start');
 
-    my $self = bless {};
+    my $self = bless {}, $class;
 
     $self->{vzdump} = $vzdump;
     $self->{storecfg} = PVE::Storage::config();