diff options
| author | Simon Proctor <simon.proctor@zpg.co.uk> | 2019-10-28 14:26:05 +0000 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zpg.co.uk> | 2019-10-28 14:26:05 +0000 |
| commit | 7d72217fc6930d667847b4e333c059329f6a1bdd (patch) | |
| tree | 0bc28ef979d6c920ffc571750d8842eca43b0768 | |
| parent | 703cfbab1a0be3847f83ab7e1b9b07c64aca3f01 (diff) | |
| download | perlweeklychallenge-club-7d72217fc6930d667847b4e333c059329f6a1bdd.tar.gz perlweeklychallenge-club-7d72217fc6930d667847b4e333c059329f6a1bdd.tar.bz2 perlweeklychallenge-club-7d72217fc6930d667847b4e333c059329f6a1bdd.zip | |
Added a test incase the widt check fails
| -rw-r--r-- | challenge-032/simon-proctor/perl6/ch-2.p6 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/challenge-032/simon-proctor/perl6/ch-2.p6 b/challenge-032/simon-proctor/perl6/ch-2.p6 index 6e497adf27..0022fd7e2b 100644 --- a/challenge-032/simon-proctor/perl6/ch-2.p6 +++ b/challenge-032/simon-proctor/perl6/ch-2.p6 @@ -66,7 +66,12 @@ sub get-bar( Int $available, $max, $value ) { } sub get-screen-width() { - run("tput","cols",:out).out.slurp.chomp; + my $result; + try { + $result = run("tput","cols",:out).out.slurp.chomp; + } + # Fallback incase tput not available + return $result || 100; } sub parse-space-sep( Str $line ) { |