[perl-win32-gui-hackers] 'fileno' redefined warning when building with MinGW

[Robert M. <rm...@po...>]

When building Win32::GUI with MinGW under ActiveState ActivePerl 5.8.6 
and 5.8.7 I get a warning from the compiler about "fileno" redefined.

This warning can be eliminated by applying the patch described at
http://aspn.activestate.com/ASPN/Mail/Message/perl5-porters/2722680

It needs applying to C:\Perl\lib\CORE\win32iop.h (adjust for you perl 
install location)

Patch included below for reference.

Regards,
Rob.

--- win32iop.h	Fri Jun 24 14:55:28 2005
+++ win32iop.h	Mon Jun 27 21:17:56 2005
@@ -192,4 +192,7 @@
 #undef getchar
 #undef putchar
+#endif
+
+#if defined(__MINGW32__) || defined(__BORLANDC__)
 #undef fileno
 #endif