diff --git a/stackcollapse-gdb.pl b/stackcollapse-gdb.pl index 56068a7f..8e9831b2 100755 --- a/stackcollapse-gdb.pl +++ b/stackcollapse-gdb.pl @@ -62,6 +62,11 @@ } } +if(!($current eq "")) { + $stacks{$current} += 1; + $current = ""; +} + foreach my $k (sort { $a cmp $b } keys %stacks) { print "$k $stacks{$k}\n"; }