diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-06-02 19:29:53 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-06-02 19:29:53 +0200 |
commit | b59b1bfdcbd2e6c7a9b1b8fd49481395166617f1 (patch) | |
tree | 62365d976640e664b4aea47e542ecac3d1d9b588 | |
parent | 3aa0fcc86f0d7ff6224887522ec61bcdfc806ebf (diff) |
Get terminal width from Term::Size
-rwxr-xr-x | bin/ekgping | 3 |
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 ], |