Skip Menu |

This queue is for tickets about the IO CPAN distribution.

Report information
The Basics
Id: 53049
Status: resolved
Priority: 0/
Queue: IO

People
Owner: Nobody in particular
Requestors: arvindsgulati [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 1.25
Fixed in: (no value)



Subject: IO::Handle blocking always fails in windows
In module IO::Handle using strawberry perl v5.10.0 on Windows 7 64 bit OS, $io->blocking(0) always fails with $! set to "Unknown error" Sample code to produce the bug is attached
Subject: timeout.pl
#!/usr/bin/perl use strict; use warnings; use IO::File; print $! if(!STDIN->blocking(0)) ; $_ = <STDIN>; if(defined) { print "You were quick"; exit; } sleep 5; $_ = <STDIN>; if(defined) { print "Atleast you can type"; exit; } print "You are totally useless";
Ticket migrated to github as https://github.com/toddr/IO/issues/7