bug-fix for size output
Signed-off-by: Wolfgang Link <w.link@proxmox.com>
This commit is contained in:
committed by
Dietmar Maurer
parent
76fd7dc7c2
commit
8a55ff7d39
@ -94,6 +94,8 @@ sub zfs_parse_zvol_list {
|
|||||||
foreach my $line (@lines) {
|
foreach my $line (@lines) {
|
||||||
if ($line =~ /^(.+)\s+([a-zA-Z0-9\.]+|\-)\s+(.+)$/) {
|
if ($line =~ /^(.+)\s+([a-zA-Z0-9\.]+|\-)\s+(.+)$/) {
|
||||||
my $zvol = {};
|
my $zvol = {};
|
||||||
|
my $size = $2;
|
||||||
|
my $origin = $3;
|
||||||
my @parts = split /\//, $1;
|
my @parts = split /\//, $1;
|
||||||
my $name = pop @parts;
|
my $name = pop @parts;
|
||||||
my $pool = join('/', @parts);
|
my $pool = join('/', @parts);
|
||||||
@ -103,9 +105,9 @@ sub zfs_parse_zvol_list {
|
|||||||
|
|
||||||
$zvol->{pool} = $pool;
|
$zvol->{pool} = $pool;
|
||||||
$zvol->{name} = $name;
|
$zvol->{name} = $name;
|
||||||
$zvol->{size} = zfs_parse_size($2);
|
$zvol->{size} = zfs_parse_size($size);
|
||||||
if ($3 !~ /^-$/) {
|
if ($3 !~ /^-$/) {
|
||||||
$zvol->{origin} = $3;
|
$zvol->{origin} = $origin;
|
||||||
}
|
}
|
||||||
push @$list, $zvol;
|
push @$list, $zvol;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user