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

[stas]

stas        2003/11/22 12:38:54

  Modified:    src/modules/perl modperl_io.c
  Log:
  use the macro PerlIO_flush to support older perls
  
  Revision  Changes    Path
  1.22      +1 -1      modperl-2.0/src/modules/perl/modperl_io.c
  
  Index: modperl_io.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
  retrieving revision 1.21
  retrieving revision 1.22
  diff -u -u -r1.21 -r1.22
  --- modperl_io.c      22 Nov 2003 10:29:29 -0000      1.21
  +++ modperl_io.c      22 Nov 2003 20:38:54 -0000      1.22
  @@ -200,7 +200,7 @@
        * situation always explicitly flush STDOUT, before reopening it.
        */
       if (GvIOn(handle_orig) && IoOFP(GvIOn(handle_orig))) {
  -        Perl_PerlIO_flush(aTHX_ IoOFP(GvIOn(handle_orig)));
  +        PerlIO_flush(IoOFP(GvIOn(handle_orig)));
       }
       /* open STDOUT, ">&STDOUT_SAVED" or die "Can't dup STDOUT_SAVED: $!"; */
       /* open first closes STDOUT */