From d825a42e0a67d546192c470c4cca7da269ab90b1 Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 27 Jul 1996 01:16:53 +0000
Subject: perl 5.003_01: ext/FileHandle/FileHandle.xs

Don't repeat inclusion of stdio.h
Use Fflush() macro to allow for OS-specific overrides
---
 ext/FileHandle/FileHandle.xs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'ext')

diff --git a/ext/FileHandle/FileHandle.xs b/ext/FileHandle/FileHandle.xs
index 3a99cf1dc8..8b1c60eb25 100644
--- a/ext/FileHandle/FileHandle.xs
+++ b/ext/FileHandle/FileHandle.xs
@@ -1,7 +1,6 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
-#include <stdio.h>
 
 typedef int SysRet;
 typedef FILE * InputStream;
@@ -137,7 +136,7 @@ fflush(handle)
 	OutputStream	handle
     CODE:
 	if (handle)
-	    RETVAL = fflush(handle);
+	    RETVAL = Fflush(handle);
 	else {
 	    RETVAL = -1;
 	    errno = EINVAL;
-- 
cgit v1.2.1