summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/IO/Poll.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IO/Poll.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Poll.pm4
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;