perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Denis Banovic" <denis.bano...@ncm.at>
Subject AW: SV: Moving STDOUT to a new handle?
Date Tue, 09 Nov 2004 08:25:58 GMT
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:arnsholt@online.no] 
Gesendet: Montag, 8. November 2004 23:20
An: Rob Kinyon; modperl@perl.apache.org
Betreff: SV: SV: Moving STDOUT to a new handle?


> From: Rob Kinyon [rob.kinyon@gmail.com]
> 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


Mime
View raw message