Strip java related things and handle inlined stacks produced by dtrace.

stackcollapse.pl

@@ -88,7 +88,20 @@ sub remember_stack {
 	$frame =~ s/(::.*)[(<].*/$1/;
 
 	$frame = "-" if $frame eq "";
-	unshift @stack, $frame;
+
+        my @inline;
+        for (split /\->/, $frame) {
+            my $func = $_;
+
+            # Strip out L and ; included in java stacks
+            $func =~ tr/\;/:/;
+            $func =~ s/^L//;
+            $func .= "_[i]" if scalar(@inline) > 0; #inlined
+
+            push @inline, $func;
+        }
+
+	unshift @stack, @inline;
 }
 
 foreach my $k (sort { $a cmp $b } keys %collapsed) {