can't get unbuffered output to work

[Dirk Lutzebaeck]

Hi, unbuffered output in a handler just doesn't work for me:


<Location /unbuffered>
Options ExecCGI
SetHandler perl-script
PerlHandler My::Handler
</Location>


package My::Handler;

sub handler {
  my $r = shift;

  $r->content_type('text/html');
  
  $r->send_http_header;

  while(1) {
    $r->print("<b>hi</b>\n");
    $r->rflush;
    sleep(1);
  }
}


If I 'GET /unbuffered' in Netscape nothing is printed until I stop the
server. Setting $|++ does not help. Something is still buffering. This
is modperl 1.21 and Apache 1.3.12.

Any clues?

Dirk