From e5df37703cab30b37a4ff5ed177db7b12104390d Mon Sep 17 00:00:00 2001
From: Jason May <jason.a.may@gmail.com>
Date: Wed, 2 Mar 2011 09:49:20 -0500
Subject: use Term::ReadKey instead of shell commands

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

diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index 62aca38..9ac3a8d 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -150,7 +150,7 @@ sub _build_socket {
         }
     }
 
-    chomp( my ($cols, $lines) = (`tput cols`, `tput lines`) );
+    my ($cols, $lines) = GetTerminalSize();
 
     $socket->syswrite($self->establishment_message);
     $socket->syswrite("geom $cols $lines\nfinish\n\e[H\e[2J");
-- 
cgit v1.2.3-54-g00ecf