vzdump: avoid single argument bless

reported by perlcritic.

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2021-02-25 19:19:03 +01:00
parent 5620e5761e
commit 94009776df

View File

@ -460,7 +460,11 @@ sub new {
$opts->{tmpdir} =~ s|/+$|| if ($opts->{tmpdir}); $opts->{tmpdir} =~ s|/+$|| if ($opts->{tmpdir});
$skiplist = [] if !$skiplist; $skiplist = [] if !$skiplist;
my $self = bless { cmdline => $cmdline, opts => $opts, skiplist => $skiplist }; my $self = bless {
cmdline => $cmdline,
opts => $opts,
skiplist => $skiplist,
}, $class;
my $findexcl = $self->{findexcl} = []; my $findexcl = $self->{findexcl} = [];
if ($defaults->{'exclude-path'}) { if ($defaults->{'exclude-path'}) {