From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 18 Dec 2002 23:12:14 +0000 (+0000)
Subject: my_fflush_all() wasn't doing the right thing under useperlio
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f800e14d03e1bfa2cf42b86e56c0183cd5875618;p=p5sagit%2Fp5-mst-13.2.git

my_fflush_all() wasn't doing the right thing under useperlio
on many platforms

p4raw-id: //depot/perl@18335
---

diff --git a/util.c b/util.c
index b58a1b4..64cb738 100644
--- a/util.c
+++ b/util.c
@@ -2985,7 +2985,7 @@ Perl_get_vtbl(pTHX_ int vtbl_id)
 I32
 Perl_my_fflush_all(pTHX)
 {
-#if defined(FFLUSH_NULL)
+#if defined(USE_PERLIO) || defined(FFLUSH_NULL) || defined(USE_SFIO)
     return PerlIO_flush(NULL);
 #else
 # if defined(HAS__FWALK)