In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/feeaecedc5652ab5391e68025935a3232fd5957e?hp=6738d19c90544b3a2dafc9cf26220a4c90063574>
- Log ----------------------------------------------------------------- commit feeaecedc5652ab5391e68025935a3232fd5957e Author: Steve Hay <[email protected]> Date: Fri May 8 11:08:02 2009 +0100 Silence Win32 compiler warning in IO.xs The ioctl() function on Win32 is really win32_ioctl(), the third argument of which is a char*. (cherry picked from commit 5f1c7092739bf7bb81e301f20fd4c428602d6f9b) ----------------------------------------------------------------------- Summary of changes: ext/IO/IO.xs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index 7d0d4db..d3dff55 100644 --- a/ext/IO/IO.xs +++ b/ext/IO/IO.xs @@ -122,7 +122,7 @@ io_blocking(pTHX_ InputStream f, int block) return RETVAL; #else # ifdef WIN32 - unsigned long flags = block; + char flags = (char)block; return ioctl(PerlIO_fileno(f), FIONBIO, &flags); # else return -1; -- Perl5 Master Repository
