fixed regexp grouping;
authorwenzelm
Tue Jul 05 16:49:15 2005 +0200 (2005-07-05)
changeset 1669375f39d66425d
parent 16692 d3416641926f
child 16694 f8ca69762221
fixed regexp grouping;
Admin/profiling_report
     1.1 --- a/Admin/profiling_report	Tue Jul 05 16:16:49 2005 +0200
     1.2 +++ b/Admin/profiling_report	Tue Jul 05 16:49:15 2005 +0200
     1.3 @@ -11,7 +11,7 @@
     1.4  my @output = ();
     1.5  
     1.6  while (<ARGV>) {
     1.7 -    if (m,^( |\d){10} (\S+$|GARBAGE COLLECTION.*$),) {
     1.8 +    if (m,^([ 0-9]{10}) (\S+$|GARBAGE COLLECTION.*$),) {
     1.9  	my $count = $1;
    1.10  	my $fun = $2;
    1.11  	if ($count =~ m,^\s*(\d)+$,) {