Commit 3d32df2d authored by Paolino Paperino's avatar Paolino Paperino
Browse files

2018-09-06: FG; Further fixes to remove size units.

parent 814e49d7
......@@ -173,6 +173,7 @@ foreach my $_lineS (@_dataSize)
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.;
......
......@@ -28,6 +28,7 @@ sub convertNumber
my ($string,$toWhat) = @_;
my $value = 0.;
if ($toWhat eq 'size') {
$string =~ s/iB$//;
# return unit: T
$value = $string;
my $lastChar = lc(chop($string));
......
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