This is part of The Pile, a partial archive of some open source mailing lists and newsgroups.
To: mod_perl list <modperl@apache.org>
From: Stas Bekman <stas@stason.org>
Subject: flushing appears to be broken with perl 5.6.0
Date: Mon, 8 Jan 2001 16:46:10 +0100 (CET)
Hi,
This simple Apache::Registry script is supposed to print the PID and then
hang, it used to work with older mod_perl/perl versions, it doesn't print
the PID now -- rflush doesn't seem to work. (neither $|=1 works)
my $r = shift;
$r->send_http_header('text/plain');
$r->print("PID = $$\n");
$r->rflush;
while(1){
sleep 1;
}
I've tested it with mod_perl-1.24_(01|02)/apache-1.3.14 and
mod_perl-1.24/apache-1.3.12 with perl 5.6.0 (running on Linux).
Has it something to do with bugs in 5.6.0? If you have the patched version
of 5.6.0 can you please test it?
===
To: mod_perl list <modperl@apache.org>
From: Stas Bekman <stas@stason.org>
Subject: Re: flushing appears to be broken with perl 5.6.0
Date: Mon, 8 Jan 2001 17:17:54 +0100 (CET)
On Mon, 8 Jan 2001, Stas Bekman wrote:
> Hi,
>
> This simple Apache::Registry script is supposed to print the PID and then
> hang, it used to work with older mod_perl/perl versions, it doesn't print
> the PID now -- rflush doesn't seem to work. (neither $|=1 works)
>
> my $r = shift;
> $r->send_http_header('text/plain');
>
> $r->print("PID = $$\n");
> $r->rflush;
>
> while(1){
> sleep 1;
> }
>
> I've tested it with mod_perl-1.24_(01|02)/apache-1.3.14 and
> mod_perl-1.24/apache-1.3.12 with perl 5.6.0 (running on Linux).
>
> Has it something to do with bugs in 5.6.0? If you have the patched version
> of 5.6.0 can you please test it?
As pointed out by Niraj Sheth in the private reply I had a problem with
front-end buffering. Accessing the back-end server directly solves the
problem.
Which leads to a question, on how to make the real flush. Currently
rflush and ($|=1) are quite useless if there is a buffering process at the
front end side.
===
To: "'Stas Bekman'" <stas@stason.org>, mod_perl list
<modperl@apache.org>
From: "Sheth, Niraj " <niraj_sheth@groton.pfizer.com>
Subject: RE: flushing appears to be broken with perl 5.6.0
Date: Mon, 8 Jan 2001 11:29:07 -0500
Stas,
I am printing 4k of data for each push ..
# this to flush buffer of front end proxy-server.
my $new_line = "\n" x 4096;
print $new_line;
(make sure gzip filter if off ...)
http://forum.swarthmore.edu/epigone/modperl/kerdsnestim/14702.7611.496757.13
9565@ampato.core.aeccom.com
I am sure there are some other more efficient solutions which I don't know,
but would like to know.
===