yesBad/pve-storage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use one liner closure for outfunc

Browse Source 
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht
2020-02-19 14:50:04 +01:00
parent f155c912d0
commit fee2ece310
1 changed files with 2 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
PVE/Storage/PBSPlugin.pm
View File

@ -121,11 +121,7 @@ sub run_client_cmd {
my ($scfg, $storeid, $client_cmd, $param, $no_output) = @_; my ($scfg, $storeid, $client_cmd, $param, $no_output) = @_;
my $json_str = ''; my $json_str = '';
my $outfunc = sub { $json_str .= "$_[0]\n" };
my $outfunc = sub {
my $line = shift;
$json_str .= "$line\n";
};
$param = [] if !defined($param); $param = [] if !defined($param);
$param = [ $param ] if !ref($param); $param = [ $param ] if !ref($param);
@ -150,11 +146,7 @@ sub extract_vzdump_config {
my ($vtype, $name, $vmid, undef, undef, undef, $format) = $class->parse_volname($volname); my ($vtype, $name, $vmid, undef, undef, undef, $format) = $class->parse_volname($volname);
my $config = ''; my $config = '';
my $outfunc = sub { $config .= "$_[0]\n" };
my $outfunc = sub {
my $line = shift;
$config .= "$line\n";
};
my $config_name; my $config_name;
if ($format eq 'pbs-vm') { if ($format eq 'pbs-vm') {