Re: mod_perl memory

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