Merge pull request #12 from timbunce/float

Allow floating point values
brendangregg · Mar 25, 2013 · f689c1d · f689c1d
2 parents b7250da + ad3d40b
commit f689c1d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/flamegraph.pl b/flamegraph.pl
@@ -232,7 +232,7 @@ sub flow {
 my $ignored = 0;
 foreach (sort @Data) {
 	chomp;
-	my ($stack, $samples) = (/^(.*)\s+(\d+)$/);
+	my ($stack, $samples) = (/^(.*)\s+(\d+(?:\.\d*))$/);
 	unless (defined $samples) {
             ++$ignored;
             next;
@@ -294,7 +294,7 @@ sub flow {
 	my $y1 = $imageheight - $ypad2 - ($depth + 1) * $frameheight + 1;
 	my $y2 = $imageheight - $ypad2 - $depth * $frameheight;
 
-	my $samples = $etime - $stime;
+	my $samples = sprintf "%.0f", $etime - $stime;
         (my $samples_txt = $samples) # add commas per perlfaq5
             =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g;