Admin/profiling_report
changeset 16705 33f38450cab6
parent 16693 75f39d66425d
child 16858 fade1d3a2995
--- a/Admin/profiling_report	Wed Jul 06 10:34:07 2005 +0200
+++ b/Admin/profiling_report	Wed Jul 06 10:41:38 2005 +0200
@@ -14,6 +14,8 @@
     if (m,^([ 0-9]{10}) (\S+$|GARBAGE COLLECTION.*$),) {
 	my $count = $1;
 	my $fun = $2;
+	$fun =~ s,-?\(\d+\).*$,,g;
+	$fun =~ s,/\d+$,,g;
 	if ($count =~ m,^\s*(\d)+$,) {
 	    if (defined($log{$fun})) {
 		$log{$fun} += $count;