Re: mod_perl memory

On Thursday 18 March 2010 04:13:04 Pavel Georgiev wrote:
> How would that logic (adding subpools and using them) be applied to my
>  simplified example:
> 
> for (;;) {
>    $request->print("--$this->{boundary}\n");
>    $request->print("Content-type: text/html; charset=utf-8;\n\n");
>    $request->print("$data\n\n");
>    $request->rflush;
> }
> 
> Do I need to add an output filter?
> 
No, this one does not grow here.

sub {
  my ($r)=@_;

  my $ba=$r->connection->bucket_alloc;
  until( -e '/tmp/stop' ) {
    my $pool=$r->pool->new;
    my $bb2=APR::Brigade->new($pool, $ba);
    $bb2->insert_tail(APR::Bucket->new($ba, ("x"x70)."\n"));
    $bb2->insert_tail(APR::Bucket::flush_create $ba);
    $r->output_filters->pass_brigade($bb2);
    $pool->destroy;
  }

  my $bb2=APR::Brigade->new($r->pool, $ba);
  $bb2->insert_tail(APR::Bucket::eos_create $ba);
  $r->output_filters->pass_brigade($bb2);

  return Apache2::Const::OK;
}

Torsten Förtsch

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

Like fantasy? http://kabatinte.net