At 10:28 12/10/2000 -0700, Bill Moseley wrote:
>I have a spinning mod_perl process.  I installed a
>  $SIG{USR2} = \&Carp::confess;
>handler and it pointed to this line:
>   $cnt++ while $query->{query} =~ /(?:^|\s)[("]*\S$size\*/g;

I have no idea why your httpd is spinning, however without taking into
account all that your regexp does, wouldn't an adaptation of the following
work as well (thus avoiding the regex causes spinning problem) :

$cnt = scalar grep /\*/, split(/\s+/, $query->{query});

hth



-- robin b.
Smoking is one of the leading causes of statistics.

Reply via email to