diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-15 11:29:41 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-15 11:29:41 -0700 |
| commit | 03cf606dcb29a9e541ee462005dd0d0e4709dadd (patch) | |
| tree | 5658ba10157dcd885a434809197951518262db2e | |
| parent | da45800bee048182963e444a62413c5f4db2b773 (diff) | |
| download | p5-Git-Annex-03cf606dcb29a9e541ee462005dd0d0e4709dadd.tar.gz | |
drop some parens
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | lib/App/annex_review_unused.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/App/annex_review_unused.pm b/lib/App/annex_review_unused.pm index 22e7a56..2527193 100644 --- a/lib/App/annex_review_unused.pm +++ b/lib/App/annex_review_unused.pm @@ -110,9 +110,9 @@ sub main { unless ($just_print) { # truncate log output if necessary to ensure user's # terminal does not scroll - my (undef, $height) = GetTerminalSize(); - splice @log_lines, (($height - 5) - @log_lines) - if @log_lines > ($height - 5); + my (undef, $height) = GetTerminalSize; + splice @log_lines, $height - (5 + @log_lines) + if 5 + @log_lines > $height; } print "\n"; say for @log_lines; @@ -122,7 +122,7 @@ sub main { # before prompting, clear out stdin, to avoid # registered a keypress more than once ReadMode 4; - 1 while defined ReadKey(-1); + 1 while defined ReadKey -1; my @opts = ('y', 'n'); push @opts, 'o' if $contentlocation; @@ -137,7 +137,7 @@ sub main { ReadMode 0; # respond to C-c - exit 0 if ord($response) == 3; + exit 0 if ord $response == 3; say $response; $response = lc($response); |