Carpout in mod_perl

2003-08-27 Thread Wojciech Pietron
Solaris 2.5.1 perl 5.6.0 Apache/1.3.27 (Unix) mod_perl/1.27 CGI 2.76 CGI::Carp 1.20 Hi, I have problems with redirecting STDERR in mod_perl. Have a look at the following example: == #/usr/bin/perl -w use CGI qw(header param url_param url);

Re: Carpout in mod_perl

2003-08-27 Thread Josh Chamas
Wojciech Pietron wrote: ... use CGI qw(header param url_param url); use CGI::Carp qw(fatalsToBrowser croak carp carpout); my ($pwd, $errorlog, $fh); BEGIN { $pwd = qx|/bin/pwd|; chop $pwd; $errorlog = $pwd/myerror.log; $fh = new FileHandle $errorlog; carpout($fh); } # functions