From 79d548629691e78a23e3873f16c729e3c60cebaf Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 3 Nov 2010 00:01:34 -0500
Subject: don't treat interrupted system calls as actual errors

---
 lib/App/Termcast.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.3-54-g00ecf