diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-09-27 21:35:48 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-09-27 21:49:04 -0500 |
| commit | 873124695bbbdd85c144f2983ce38ab92d2e13fd (patch) | |
| tree | 53729d09757b79b9b4ae4bf63779c53756f23aa6 | |
| parent | f342a382bbd8471d1a74fd11030aa98557898c7e (diff) | |
| download | app-termcast-873124695bbbdd85c144f2983ce38ab92d2e13fd.tar.gz app-termcast-873124695bbbdd85c144f2983ce38ab92d2e13fd.zip | |
reread after getting a SIGWINCH
| -rw-r--r-- | lib/App/Termcast.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm index ceb736c..b65a691 100644 --- a/lib/App/Termcast.pm +++ b/lib/App/Termcast.pm @@ -58,6 +58,14 @@ has bell_on_watcher => ( . " or disconnects", ); +has _got_winch => ( + traits => ['NoGetopt'], + is => 'rw', + isa => 'Bool', + default => 0, + init_arg => undef, +); + sub run { my $self = shift; my @argv = @{ $self->extra_argv }; @@ -77,12 +85,17 @@ sub run { vec($rin, $ptyfd, 1) = 1; vec($rin, $sockfd, 1) = 1; ReadMode 5; + local $SIG{WINCH} = sub { $self->_got_winch(1) }; while (1) { my $ready = select($rout = $rin, undef, undef, undef); if (vec($rout, fileno(STDIN), 1)) { my $buf; sysread STDIN, $buf, 4096; if (!defined $buf || length $buf == 0) { + if ($self->_got_winch) { + $self->_got_winch(0); + redo; + } warn "Error reading from stdin: $!" unless defined $buf; last; } @@ -91,6 +104,10 @@ sub run { if (vec($rout, $ptyfd, 1)) { my $buf = $pty->read(0); if (!defined $buf || length $buf == 0) { + if ($self->_got_winch) { + $self->_got_winch(0); + redo; + } warn "Error reading from pty: $!" unless defined $buf; last; } @@ -101,6 +118,10 @@ sub run { my $buf; $socket->recv($buf, 4096); if (!defined $buf || length $buf == 0) { + if ($self->_got_winch) { + $self->_got_winch(0); + redo; + } warn "Error reading from socket: $!" unless defined $buf; last; } |