prototype("CORE::recv")

[p5sagit/p5-mst-13.2.git] / util.c

diff --git a/util.c b/util.c
index 7e3934e..c5a3af3 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3958,16 +3958,6 @@ 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)
 {
@@ -3977,7 +3967,7 @@ Perl_my_fflush_all(pTHX)
 # if defined(HAS__FWALK)
     /* undocumented, unprototyped, but very useful BSDism */
     extern void _fwalk(int (*)(FILE *));
-    _fwalk(&S_fflush);
+    _fwalk(&fflush);
     return 0;
 #   else
     long open_max = -1;