From 4f2d533c463c984283722c72b23e6d7ffe65ec70 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 26 Jun 2009 23:13:25 -0500
Subject: use HalfDuplex for better reliability

---
 lib/Net/Termcast.pm | 5 ++---
 1 file 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);
 }
 
-- 
cgit v1.2.3