Fix tabbing from commit f5458e3a4f and bump IO::Handle version.
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 16 Aug 2011 17:26:39 +0000 (18:26 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 16 Aug 2011 17:26:39 +0000 (18:26 +0100)
dist/IO/IO.xs
dist/IO/lib/IO/Handle.pm

index dfbe3bd..d696603 100644 (file)
@@ -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.
index 6ca3c8a..c15e5a3 100644 (file)
@@ -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(