From b59b1bfdcbd2e6c7a9b1b8fd49481395166617f1 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 2 Jun 2011 19:29:53 +0200
Subject: Get terminal width from Term::Size

---
 bin/ekgping | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/ekgping b/bin/ekgping
index 8786682..ef32ad6 100755
--- a/bin/ekgping
+++ b/bin/ekgping
@@ -6,6 +6,7 @@ use 5.010;
 
 use IO::Handle;
 use IPC::Run qw(harness);
+use Term::Size;
 use Time::HiRes qw(usleep);
 
 our $VERSION = '0.1';
@@ -17,7 +18,7 @@ my $beep;
 my $was_beep   = 1;
 my $dead_count = 0;
 my $column     = 0;
-my $column_max = 80;
+my $column_max = (Term::Size::chars *STDOUT{IO})[0];
 
 my $ping = harness(
 	[ 'ping', '-n', $host ],
-- 
cgit v1.2.3