diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-19 17:11:53 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-19 17:11:53 -0700 |
| commit | 230eddd7a1b987f6f9e7c19366d638833337e8c5 (patch) | |
| tree | 4a880d4092b8d477c63cf4698f1e3e23ed56c157 /lib | |
| parent | 082bf8f988f28657eb4c6e305db4196d1d3ed6e2 (diff) | |
| download | dotfiles-230eddd7a1b987f6f9e7c19366d638833337e8c5.tar.gz | |
echo the user's key back to them
Diffstat (limited to 'lib')
| -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}; |