diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2011-08-16 18:26:39 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2011-08-16 18:26:39 +0100 |
| commit | 1320cbfc8b33f8e10f1e92cd238df99234574a02 (patch) | |
| tree | 1e1a17a3bc0dec94b4a4410872e0d0c9d7dcb8e8 | |
| parent | f5458e3a4f5fed75a7fe0b26182af4c52e76a186 (diff) | |
| download | perl-1320cbfc8b33f8e10f1e92cd238df99234574a02.tar.gz | |
Fix tabbing from commit f5458e3a4f and bump IO::Handle version.
| -rw-r--r-- | dist/IO/IO.xs | 4 | ||||
| -rw-r--r-- | 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( |