diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IO/Poll.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/IO/Poll.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/IO/Poll.pm b/Master/tlpkg/tlperl/lib/IO/Poll.pm index 47f1a135595..a02dc3db948 100644 --- a/Master/tlpkg/tlperl/lib/IO/Poll.pm +++ b/Master/tlpkg/tlperl/lib/IO/Poll.pm @@ -13,7 +13,7 @@ use Exporter (); our(@ISA, @EXPORT_OK, @EXPORT, $VERSION); @ISA = qw(Exporter); -$VERSION = "0.09"; +$VERSION = "0.10"; @EXPORT = qw( POLLIN POLLOUT @@ -83,7 +83,7 @@ sub poll { push(@poll,$fd => $mask); } - my $ret = @poll ? _poll(defined($timeout) ? $timeout * 1000 : -1,@poll) : 0; + my $ret = _poll(defined($timeout) ? $timeout * 1000 : -1,@poll); return $ret unless $ret > 0; |