diff options
Diffstat (limited to 'lib/IO/Async/Loop/Select.pm')
-rw-r--r-- | lib/IO/Async/Loop/Select.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/IO/Async/Loop/Select.pm b/lib/IO/Async/Loop/Select.pm index 37ff60d..0c3bd9c 100644 --- a/lib/IO/Async/Loop/Select.pm +++ b/lib/IO/Async/Loop/Select.pm @@ -1,14 +1,14 @@ # You may distribute under the terms of either the GNU General Public License # or the Artistic License (the same terms as Perl itself) # -# (C) Paul Evans, 2007-2013 -- leonerd@leonerd.org.uk +# (C) Paul Evans, 2007-2015 -- leonerd@leonerd.org.uk package IO::Async::Loop::Select; use strict; use warnings; -our $VERSION = '0.64'; +our $VERSION = '0.67'; use constant API_VERSION => '0.49'; use base qw( IO::Async::Loop ); @@ -177,7 +177,7 @@ sub post_select alarm( IO::Async::Loop->WATCHDOG_INTERVAL ) if WATCHDOG_ENABLE; foreach my $fd ( keys %$iowatches ) { - my $watch = $iowatches->{$fd}; + my $watch = $iowatches->{$fd} or next; my $fileno = $watch->[0]->fileno; |