X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FIO%2Flib%2FIO%2FSelect.pm;h=1d8cda6fbffec4b03963ad1b5e062295a076b46c;hb=3cb6de8118f279c0dca172ac40ef21e89cf524b7;hp=79171023e671693a3ed30369e5fbda63fc9e6a4d;hpb=eaf840779373130f95f7bd459b3864c78c698e28;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/IO/lib/IO/Select.pm b/ext/IO/lib/IO/Select.pm index 7917102..1d8cda6 100644 --- a/ext/IO/lib/IO/Select.pm +++ b/ext/IO/lib/IO/Select.pm @@ -347,7 +347,7 @@ listening for more connections on a listen socket $lsn = new IO::Socket::INET(Listen => 1, LocalPort => 8080); $sel = new IO::Select( $lsn ); - + while(@ready = $sel->can_read) { foreach $fh (@ready) { if($fh == $lsn) {