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 (file)
--- 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;