From 1320cbfc8b33f8e10f1e92cd238df99234574a02 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Tue, 16 Aug 2011 18:26:39 +0100 Subject: Fix tabbing from commit f5458e3a4f and bump IO::Handle version. --- dist/IO/IO.xs | 4 ++-- dist/IO/lib/IO/Handle.pm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs index dfbe3bd262..d696603eac 100644 --- a/dist/IO/IO.xs +++ b/dist/IO/IO.xs @@ -123,9 +123,9 @@ io_blocking(pTHX_ InputStream f, int block) #else # ifdef WIN32 if (block >= 0) { - unsigned long flags = !block; + unsigned long flags = !block; /* ioctl claims to take char* but really needs a u_long sized buffer */ - const int ret = ioctl(PerlIO_fileno(f), FIONBIO, (char*)&flags); + const int ret = ioctl(PerlIO_fileno(f), FIONBIO, (char*)&flags); if (ret != 0) return -1; /* Win32 has no way to get the current blocking status of a socket. diff --git a/dist/IO/lib/IO/Handle.pm b/dist/IO/lib/IO/Handle.pm index 6ca3c8a35d..c15e5a36f0 100644 --- a/dist/IO/lib/IO/Handle.pm +++ b/dist/IO/lib/IO/Handle.pm @@ -268,7 +268,7 @@ use IO (); # Load the XS module require Exporter; @ISA = qw(Exporter); -$VERSION = "1.31"; +$VERSION = "1.32"; $VERSION = eval $VERSION; @EXPORT_OK = qw( -- cgit v1.2.1