summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorAndy Dougherty <doughera@lafayette.edu>1999-05-26 10:49:52 -0400
committerJarkko Hietaniemi <jhi@iki.fi>1999-05-26 19:55:52 +0000
commitce72088916dcda8278192dacefb0dcaf01be131c (patch)
treef562d75500e68b22301e451ecfa6cfb59f982958 /util.c
parentc347f2776c91e4d555d0016f00573135979547eb (diff)
downloadperl-ce72088916dcda8278192dacefb0dcaf01be131c.tar.gz
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
Diffstat (limited to 'util.c')
-rw-r--r--util.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/util.c b/util.c
index 0c2b0523ca..82f6ea69f1 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