summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-06-26 23:13:25 -0500
committerJesse Luehrs <doy@tozt.net>2009-06-26 23:13:25 -0500
commit4f2d533c463c984283722c72b23e6d7ffe65ec70 (patch)
tree3c731c6e5b67b008a54030f6171359af580f5e70
parente3a642de7030e7cfdd12a91ce6886549b8c3e1df (diff)
downloadnet-termcast-4f2d533c463c984283722c72b23e6d7ffe65ec70.tar.gz
net-termcast-4f2d533c463c984283722c72b23e6d7ffe65ec70.zip
use HalfDuplex for better reliability
-rw-r--r--lib/Net/Termcast.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Net/Termcast.pm b/lib/Net/Termcast.pm
index 8025b28..708d929 100644
--- a/lib/Net/Termcast.pm
+++ b/lib/Net/Termcast.pm
@@ -71,7 +71,7 @@ has _sock => (
lazy => 1,
default => sub {
my $self = shift;
- my $socket = IO::Socket::Telnet->new(
+ my $socket = IO::Socket::Telnet::HalfDuplex->new(
PeerAddr => $self->host,
PeerPort => $self->port,
);
@@ -129,8 +129,7 @@ sub screen {
sub _get_screen {
my $self = shift;
- my $screen;
- $self->_sock->recv($screen, 4096, 0);
+ my $screen = $self->_sock->read;
$self->_vt->process($screen);
}