In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5f1c7092739bf7bb81e301f20fd4c428602d6f9b?hp=52f75a8770b4af0ffa1a094cc15d77f1ede582df>
- Log ----------------------------------------------------------------- commit 5f1c7092739bf7bb81e301f20fd4c428602d6f9b 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*. ----------------------------------------------------------------------- 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
