cvs commit: modperl-2.0/xs/Apache/RequestIO Apache__RequestIO.h

[dougm]

dougm       01/11/06 09:32:53

  Modified:    xs/Apache/RequestIO Apache__RequestIO.h
  Log:
  add mpxs_output_flush for checking $|
  
  Revision  Changes    Path
  1.14      +8 -5      modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h
  
  Index: Apache__RequestIO.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/RequestIO/Apache__RequestIO.h,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- Apache__RequestIO.h       2001/09/15 17:57:25     1.13
  +++ Apache__RequestIO.h       2001/11/06 17:32:53     1.14
  @@ -12,6 +12,13 @@
           MARK++; \
       }
   
  +#define mpxs_output_flush(r, rcfg) \
  +    /* if ($|) */ \
  +    if (IoFLUSH(PL_defoutgv)) { \
  +        modperl_wbucket_flush(&rcfg->wbucket); \
  +        ap_rflush(r); \
  +    }
  +
   static MP_INLINE apr_size_t mpxs_ap_rvputs(pTHX_ I32 items,
                                              SV **MARK, SV **SP)
   {
  @@ -57,11 +64,7 @@
       
       mpxs_write_loop(modperl_wbucket_write, &rcfg->wbucket);
       
  -    /* if ($|) */
  -    if (IoFLUSH(PL_defoutgv)){
  -        modperl_wbucket_flush(&rcfg->wbucket);
  -        ap_rflush(r);
  -    }
  +    mpxs_output_flush(r, rcfg);
       
       return bytes;
   }