Fixed parsing of bloat log when value was nan, or class contained ::.

This commit is contained in:
warren%netscape.com 1999-10-29 18:05:09 +00:00
Родитель 9ddd116d09
Коммит 98fe713c79
1 изменённых файлов: 7 добавлений и 3 удалений

Просмотреть файл

@ -7,7 +7,8 @@ sub processFile {
my ($FILENAME, $map, $prevMap) = @_;
open(FH, $FILENAME);
while (<FH>) {
if (/^\s+(\d+) (\w+)\s+([\-\d]+)\s+([\-\d]+)\s+([\-\d]+)\s+([\-\d]+) \(\s+([\-\d\.]+) \+\/\-\s+([\-\d\.]+)\)\s+([\-\d]+)\s+([\-\d]+) \(\s+([\-\d\.]+) \+\/\-\s+([\-\d\.]+)\)/) {
if (/^\s+(\d+) ([\w\:]+)\s+([\-\d]+)\s+([\-\d]+)\s+([\-\d]+)\s+([\-\d]+) \(\s+([\-\d\.]+) \+\/\-\s+([\w\.]+)\)\s+([\-\d]+)\s+([\-\d]+) \(\s+([\-\d\.]+) \+\/\-\s+([\w\.]+)\)/)
{
my $name = $2;
my $size = $3;
my $leaked = $4;
@ -33,6 +34,9 @@ sub processFile {
refStdDev => $refStdDev,
bloat => $bloat };
}
else {
# print "failed to parse: $_\n";
}
}
close(FH);
}
@ -200,7 +204,7 @@ foreach $key (@keys) {
}
}
if (!$needsHeading) {
printf "%-20s %10s\n", ("TOTAL", $total);
# printf "%-20s %10s\n", ("TOTAL", $total);
}
# ALL BLOAT
@ -222,7 +226,7 @@ foreach $key (@keys) {
}
}
if (!$needsHeading) {
printf "%-20s %10s\n", ("TOTAL", $total);
# printf "%-20s %10s\n", ("TOTAL", $total);
}
# NEW CLASSES