From 03cf606dcb29a9e541ee462005dd0d0e4709dadd Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 15 Mar 2020 11:29:41 -0700
Subject: drop some parens

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 lib/App/annex_review_unused.pm | 10 +++++-----
 1 file 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);
-- 
cgit v1.2.3