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