At 10:48 AM 7/2/2003, you wrote:
#define mpxs_output_flush(r, rcfg) \ /* if ($|) */ \ - if (IoFLUSH(PL_defoutgv)) { \ + if (bytes > 0 && IoFLUSH(PL_defoutgv)) { \ MP_FAILURE_CROAK(modperl_wbucket_flush(rcfg->wbucket, TRUE)); \ }
#define mpxs_output_flush(r, rcfg) \ /* if ($|) */ \ - if (IoFLUSH(PL_defoutgv)) { \ + if (bytes > 0 && IoFLUSH(PL_defoutgv)) { \ MP_FAILURE_CROAK(modperl_wbucket_flush(rcfg->wbucket, TRUE)); \ }