Fix percentages when using --factor

timbunce · Apr 6, 2013 · d0dffb8 · d0dffb8
1 parent 4952f87
commit d0dffb8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/flamegraph.pl b/flamegraph.pl
@@ -325,7 +325,7 @@ sub flow {
 	if ($func eq "" and $depth == 0) {
 		$info = "all ($samples_txt $countname, 100%)";
 	} else {
-		my $pct = sprintf "%.2f", ((100 * $samples) / $timemax);
+		my $pct = sprintf "%.2f", ((100 * $samples) / ($timemax * $factor));
 		my $escaped_func = $func;
 		$escaped_func =~ s/&/&amp;/g;
 		$escaped_func =~ s/</&lt;/g;