fflush() is a macro on SunOS 4.1.x, so provide a wrapper

for use with _fwalk() (fix for change#7705)

p4raw-link: @7705 on //depot/perl: 74cac757131a44f884c4728708d3a2e5d87b32d3

p4raw-id: //depot/maint-5.6/perl@9538

1 files changed, 11 insertions, 1 deletions

diff --git a/util.c b/util.c
index dce0b5ceff..31aff21c5a 100644
--- a/util.c
+++ b/util.c
@@ -3808,6 +3808,16 @@ Perl_get_vtbl(pTHX_ int vtbl_id)
     return result;
 }
 
+#if !defined(FFLUSH_NULL) && defined(HAS__FWALK)
+static int S_fflush(FILE *fp);
+
+static int
+S_fflush(FILE *fp)
+{
+    return fflush(fp);
+}
+#endif
+
 I32
 Perl_my_fflush_all(pTHX)
 {
@@ -3817,7 +3827,7 @@ Perl_my_fflush_all(pTHX)
 # if defined(HAS__FWALK)
     /* undocumented, unprototyped, but very useful BSDism */
     extern void _fwalk(int (*)(FILE *));
-    _fwalk(&fflush);
+    _fwalk(&S_fflush);
     return 0;
 #   else
     long open_max = -1;