diff options
Diffstat (limited to 'lib/perl5/Local/MrRepo/Repo/Git/Annex.pm')
-rw-r--r-- | lib/perl5/Local/MrRepo/Repo/Git/Annex.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm index 7f9d3247..09d1e5da 100644 --- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm +++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm @@ -160,6 +160,10 @@ sub review_unused { # would also be good not to require the user to # hit RET, possibly by using Term::ReadKey (see # example code in its POD). + # + # if do that, add a small delay before accepting + # the next keypress, to reduce the chance of two + # keypresses being accidentally registered $response = lc(prompt("Drop this unused file? (y/n/o)")); if ($response eq 'y') { push @to_drop, $unused_file->{number}; |