Re: Apache::PerlRun flooding error log

[prev] [thread] [next] [Date index for 2005/04/06]

Stas Bekman wrote:
> David J Radunz wrote:
> 
>> Sounds great - yet obvious. I would have to do about 2 years worth of
>> work to fix all of the bugs. I didn't create them either, I fix them in
>> my own code - but we have so much code base. I wanted a mod_perl
>> solution to overcome this issue by filtering the error.
> 
> 
> If that's the case, why don't you adjust your %SIG wrappers to truncate 
> the error length? It's relatively easy:
> 
> use Carp qw(confess cluck);
> $SIG{__DIE__}  = sub { die  substr Carp::longmess(@_), 0, TRUNCATE };
> $SIG{__WARN__} = sub { warn substr Carp::longmess(@_), 0, TRUNCATE };

Sorry, it should have been:

use constant TRUNCATE => 40;
use Carp ();
$SIG{__DIE__}  = sub { die  substr Carp::longmess(@_), 0, TRUNCATE };
$SIG{__WARN__} = sub { warn substr Carp::longmess(@_), 0, TRUNCATE };

        -- 
        __________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@xxxxxx.xxx http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com