diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-19 13:46:43 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-19 13:46:43 -0700 |
| commit | d037fc8de97a2f879cacd394e45408fe92ec2e5e (patch) | |
| tree | 7ff5653b15e5f40964864336b3364148bc805cf5 /lib | |
| parent | e26df81e0b649138f3a55c7cd799a9d4ca10be5d (diff) | |
| download | dotfiles-d037fc8de97a2f879cacd394e45408fe92ec2e5e.tar.gz | |
comment
Diffstat (limited to 'lib')
| -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}; |