bug-fix for size output

Signed-off-by: Wolfgang Link <w.link@proxmox.com>
This commit is contained in:
Wolfgang Link
2015-02-12 11:38:17 +01:00
committed by Dietmar Maurer
parent 76fd7dc7c2
commit 8a55ff7d39

View File

@ -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;
} }