From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 27 Jul 1996 01:16:53 +0000 (+0000)
Subject: perl 5.003_01: ext/FileHandle/FileHandle.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d825a42e0a67d546192c470c4cca7da269ab90b1;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_01: ext/FileHandle/FileHandle.xs

Don't repeat inclusion of stdio.h
Use Fflush() macro to allow for OS-specific overrides
---

diff --git a/ext/FileHandle/FileHandle.xs b/ext/FileHandle/FileHandle.xs
index 3a99cf1..8b1c60e 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;