From: Andy Dougherty <doughera@lafayette.edu>
Date: Wed, 26 May 1999 14:49:52 +0000 (-0400)
Subject: Re: BUG -> [19990526.004] perl5.005_57 error in util.c on sun4-solaris2.6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce72088916dcda8278192dacefb0dcaf01be131c;hp=c347f2776c91e4d555d0016f00573135979547eb;p=p5sagit%2Fp5-mst-13.2.git

Re: BUG -> [19990526.004] perl5.005_57 error in util.c on sun4-solaris2.6

To: perl5-porters@perl.org
Message-Id: <Pine.GSU.4.05.9905261448310.19172-100000@newton.phys>

p4raw-id: //depot/cfgperl@3486
---

diff --git a/util.c b/util.c
index 0c2b052..82f6ea6 100644
--- a/util.c
+++ b/util.c
@@ -3329,7 +3329,7 @@ I32
 my_fflush_all(void)
 {
 #ifdef FFLUSH_NULL
-    return fflush(NULL);
+    return PerlIO_flush(NULL);
 #else
     long open_max = -1;
 # if defined(FFLUSH_ALL) && defined(HAS_STDIO_STREAM_ARRAY)
@@ -3351,7 +3351,7 @@ my_fflush_all(void)
     if (open_max > 0) {
       long i;
       for (i = 0; i < open_max; i++)
-         fflush(&STDIO_STREAM_ARRAY[i]);
+         PerlIO_flush(&STDIO_STREAM_ARRAY[i]);
       return 0;
     }
 # endif