Commit 01a32ed4 authored by Fulvio Galeazzi's avatar Fulvio Galeazzi
Browse files

2020-10-11: FG; Fix global raw fraction.

parent bc499f4e
......@@ -159,12 +159,13 @@ foreach my $_line (@_data)
$skipNext = 1;
next;
}
my @fields = split(/\s+/, $_line);
if ($_line =~ m/TOTAL/) {
$skipNext = 1;
my @fields = split(/\s+/, $_line);
if ($inGlobal) {
$poolHash{'GLOBAL'}{'size'} = convertNumber($fields[8].$fields[9],'size');
$poolHash{'GLOBAL'}{'frac'} = $fields[10];
### In Nautilus, total number of objects is not available
# $poolHash{'GLOBAL'}{'objs'} = convertNumber($fields[5],'count');
# print "GLOBAL: ".$poolHash{'GLOBAL'}{'size'}." ".$poolHash{'GLOBAL'}{'frac'}." ".$poolHash{'GLOBAL'}{'objs'}."\n" if (defined $opt_debug);
print "GLOBAL: ".$poolHash{'GLOBAL'}{'size'}." ".$poolHash{'GLOBAL'}{'frac'}."\n" if (defined $opt_debug);
......
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