Geoffrey Young wrote:
unless (exists $ENV{MOD_PERL}
? Apache2::RequestUtil->request()->bytes_sent()
: tell STDOUT)
{
#... send response headers
>>> since you no longer send response headers in mp2, isn't this all
>>> moot?
>>
>> Did you overlook the
>>> unless (exists $ENV{MOD_PERL}
>>> ? Apache2::RequestUtil->request()->bytes_sent()
>>> : tell STDOUT)
>>> {
>>> #... send response headers
>> since you no longer send response headers in mp2, isn't this all moot?
>
> Did you overlook the fact that I'm running all this t
Geoffrey Young wrote:
> Steve Hay wrote:
>> The code is written in a very out-moded style: it is compatible with
>> mod_cgi, runs via ModPerl::Registry (formerly Apache::Registry), and
>> produces all its output via explicit print() statements scattered
>> left, right and centre, including a print(
Steve Hay wrote:
> I'm in the process of converting some old software from mod_perl1 to
> mod_perl2, and I'm finding that $r->bytes_sent() doesn't work as it used
> to.
yeah. IIRC the issue is that now we have filters, so in order to
actually calculate bytes_sent() the filters need to run in th
I'm in the process of converting some old software from mod_perl1 to
mod_perl2, and I'm finding that $r->bytes_sent() doesn't work as it used
to.
The code is written in a very out-moded style: it is compatible with
mod_cgi, runs via ModPerl::Registry (formerly Apache::Registry), and
produces all i
