perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Torsten Förtsch <torsten.foert...@gmx.net>
Subject Re: mod_perl memory
Date Thu, 18 Mar 2010 11:09:11 GMT
On Thursday 18 March 2010 11:54:53 Mårten Svantesson wrote:
> I have never worked directly with the APR API but in the example above
>  couldn't you prevent the request pool from growing by explicitly reusing
>  the  bucket brigade?
> 
> Something like (not tested):
> 
> sub {
>    my ($r)=@_;
> 
>    my $ba=$r->connection->bucket_alloc;
>    my $bb2=APR::Brigade->new($r->pool, $ba);
>    until( -e '/tmp/stop' ) {
>      $bb2->insert_tail(APR::Bucket->new($ba, ("x"x70)."\n"));
>      $bb2->insert_tail(APR::Bucket::flush_create $ba);
>      $r->output_filters->pass_brigade($bb2);
>      $bb2->cleanup();
>    }
> 
>    $bb2->insert_tail(APR::Bucket::eos_create $ba);
>    $r->output_filters->pass_brigade($bb2);
> 
>    return Apache2::Const::OK;
> }
> 
Thanks for pointing to the obvious. This doesn't grow either.

Torsten Förtsch

-- 
Need professional modperl support? Hire me! (http://foertsch.name)

Like fantasy? http://kabatinte.net

Mime
View raw message