diff options
| author | Jason May <jason.a.may@gmail.com> | 2011-03-02 09:49:20 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-04-14 01:19:03 -0500 |
| commit | e5df37703cab30b37a4ff5ed177db7b12104390d (patch) | |
| tree | 4a22aa1a31970942d87f5c17dc0eea2c9c216fc7 | |
| parent | cbffa01f54167db8282408cd540ca8d324240420 (diff) | |
| download | app-termcast-e5df37703cab30b37a4ff5ed177db7b12104390d.tar.gz app-termcast-e5df37703cab30b37a4ff5ed177db7b12104390d.zip | |
use Term::ReadKey instead of shell commands
| -rw-r--r-- | lib/App/Termcast.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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"); |