summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-06-02 19:29:53 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-06-02 19:29:53 +0200
commitb59b1bfdcbd2e6c7a9b1b8fd49481395166617f1 (patch)
tree62365d976640e664b4aea47e542ecac3d1d9b588
parent3aa0fcc86f0d7ff6224887522ec61bcdfc806ebf (diff)
Get terminal width from Term::Size
-rwxr-xr-xbin/ekgping3
1 files changed, 2 insertions, 1 deletions
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 ],