diff options
Diffstat (limited to 'lib/App/Termcast.pm')
| -rw-r--r-- | lib/App/Termcast.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm index 1a11b07..6fd6b4d 100644 --- a/lib/App/Termcast.pm +++ b/lib/App/Termcast.pm @@ -253,7 +253,8 @@ sub run { while (1) { my ($rin, $win, $ein) = $self->_build_select_args; my ($rout, $wout, $eout); - select($rout = $rin, undef, $eout = $ein, undef); + my $select_res = select($rout = $rin, undef, $eout = $ein, undef); + redo if $select_res == -1 && ($!{EAGAIN} || $!{EINTR}); if ($self->_socket_ready($eout)) { $self->clear_socket; |