perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Denis Banovic" <>
Subject AW: SV: Moving STDOUT to a new handle?
Date Tue, 09 Nov 2004 08:25:58 GMT

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;


-----Urspr√ľngliche Nachricht-----
Von: Arne Skjaerholt [] 
Gesendet: Montag, 8. November 2004 23:20
An: Rob Kinyon;
Betreff: SV: SV: Moving STDOUT to a new handle?

> From: Rob Kinyon []
> 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.


Virus checked by G DATA AntiVirusKit
Version: AVK 15.0.915 from 08.11.2004
Virus news:

Report problems:
Mail list info:
List etiquette:

View raw message