Commit 814e49d7 authored by Paolino Paperino's avatar Paolino Paperino
Browse files

2018-09-06: Remove (if present) iB from sizes.

parent 78a9a7b3
......@@ -30,6 +30,7 @@ sub convertNumber
my $value = 0.;
if ($toWhat eq 'size') {
# return unit: T
$string =~ s/iB$//;
$value = $string;
my $lastChar = lc(chop($string));
if ($lastChar eq "p") {
......
......@@ -196,6 +196,7 @@ foreach my $_line (@_data)
my $type = $fields[1];
my $frac = $fields[7];
my $size = $fields[4];
$size =~ s/iB$//;
my $sizeLastChar = lc(chop($size));
if ($sizeLastChar eq "t") {
$size = $size * 1000.;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment