diff options
author | Axel Beckert <abe@deuxchevaux.org> | 2015-06-07 14:37:43 +0200 |
---|---|---|
committer | Axel Beckert <abe@deuxchevaux.org> | 2015-06-07 14:37:43 +0200 |
commit | ad76cc8ae4fee79962ea2be7f170d3b43f63a7c7 (patch) | |
tree | f81c74f75429e829714029850f89ee4c7f13aa39 /lib/IO/Async/Loop/Select.pm | |
parent | 64c71ff58dc2df52647d2afa92266c1f9beac7e3 (diff) |
Imported Upstream version 0.67
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; |