cvs commit: modperl-2.0/src/modules/perl mod_perl.c

[dougm]

dougm       01/12/04 14:43:07

  Modified:    src/modules/perl mod_perl.c
  Log:
  flush main output buffer before running a subrequest
  
  Revision  Changes    Path
  1.98      +6 -0      modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.97
  retrieving revision 1.98
  diff -u -r1.97 -r1.98
  --- mod_perl.c        2001/11/24 01:15:01     1.97
  +++ mod_perl.c        2001/12/04 22:43:07     1.98
  @@ -368,6 +368,12 @@
   
       modperl_config_req_init(r, rcfg);
   
  +    if (r->main) {
  +        modperl_config_req_t *main_rcfg =
  +            modperl_config_req_get(r->main);
  +        modperl_wbucket_flush(&main_rcfg->wbucket);
  +    }
  +
       return OK;
   }