file_size_info: move parser to own variable
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
@ -712,15 +712,12 @@ sub file_size_info {
|
||||
return wantarray ? (0, 'subvol', 0, undef) : 1;
|
||||
}
|
||||
|
||||
my $cmd = ['/usr/bin/qemu-img', 'info', $filename];
|
||||
|
||||
my $format;
|
||||
my $parent;
|
||||
my $size = 0;
|
||||
my $used = 0;
|
||||
|
||||
eval {
|
||||
run_command($cmd, timeout => $timeout, outfunc => sub {
|
||||
my $parse_qemu_img_info = sub {
|
||||
my $line = shift;
|
||||
if ($line =~ m/^file format:\s+(\S+)\s*$/) {
|
||||
$format = $1;
|
||||
@ -739,9 +736,12 @@ sub file_size_info {
|
||||
|
||||
$used = int($used);
|
||||
}
|
||||
});
|
||||
};
|
||||
|
||||
my $cmd = ['/usr/bin/qemu-img', 'info', $filename];
|
||||
eval {
|
||||
run_command($cmd, timeout => $timeout, outfunc => $parse_qemu_img_info );
|
||||
};
|
||||
warn $@ if $@;
|
||||
|
||||
return wantarray ? ($size, $format, $used, $parent) : $size;
|
||||
|
||||
Reference in New Issue
Block a user