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 (file)
--- 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