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) {
|
||||
if ($line =~ /^(.+)\s+([a-zA-Z0-9\.]+|\-)\s+(.+)$/) {
|
||||
my $zvol = {};
|
||||
my $size = $2;
|
||||
my $origin = $3;
|
||||
my @parts = split /\//, $1;
|
||||
my $name = pop @parts;
|
||||
my $pool = join('/', @parts);
|
||||
@ -103,9 +105,9 @@ sub zfs_parse_zvol_list {
|
||||
|
||||
$zvol->{pool} = $pool;
|
||||
$zvol->{name} = $name;
|
||||
$zvol->{size} = zfs_parse_size($2);
|
||||
$zvol->{size} = zfs_parse_size($size);
|
||||
if ($3 !~ /^-$/) {
|
||||
$zvol->{origin} = $3;
|
||||
$zvol->{origin} = $origin;
|
||||
}
|
||||
push @$list, $zvol;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user