Re: mod_perl memory

Thanks, that did the job. I'm currently testing for side effects but it all looks good so far.

On Mar 18, 2010, at 4:09 AM, Torsten Förtsch wrote:

> 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