Hi!
Try Filter::Handle
It redirects the STDOUT and overrides the print function
You'll have to change the sub PRINT function to make it work with perl 5.8
sub PRINT {
my $self = shift;
my $fh = *{ $self->{fh} };
# print $fh $self->{output}->(@_); ### won't work anymore
my $stdout = select;
select $fh;
write $self->{output}->(@_);
select $stdout;
}
Denis
-----Ursprüngliche Nachricht-----
Von: Arne Skjaerholt [mailto:[EMAIL PROTECTED]
Gesendet: Montag, 8. November 2004 23:20
An: Rob Kinyon; [EMAIL PROTECTED]
Betreff: SV: SV: Moving STDOUT to a new handle?
> From: Rob Kinyon [EMAIL PROTECTED]
> FYI: C::A has a plugin that will make it work (mostly) seamlessly with
> mod_perl called CGI::Application::Apache.
Hmm. I can't find CGI::Application::Apache on CPAN, only
CGI::Application::Plugin::Apache, which, unfortunately for me, doesn't do any
STDOUT magic either.
Arne
:wq
____________
Virus checked by G DATA AntiVirusKit
Version: AVK 15.0.915 from 08.11.2004
Virus news: www.antiviruslab.com
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
