diff options
-rw-r--r-- | lib/perl5/Local/MrRepo/Repo/Git/Annex.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm index e58f5428..87c51bc4 100644 --- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm +++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm @@ -168,11 +168,11 @@ sub review_unused { # load my $response = ReadKey(0); ReadMode 0; - print "\n"; # respond to C-c exit 0 if ord($response) == 3; + say $response; $response = lc($response); if ($response eq 'y') { push @to_drop, $unused_file->{number}; |