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:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
