comment

1 files changed, 10 insertions, 2 deletions

diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
index f613eabf..7f9d3247 100644
--- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
+++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
@@ -151,8 +151,16 @@ sub review_unused {
             if ($opts{interactive}) {
                 my $response;
                 while (1) {
-                    $response
-                      = lc(prompt("Drop this unused file?  (y/n/o)"));
+                    # would be good if user could say 'b' to go back
+                    # to the previous entry.  would probably have to
+                    # implement this by replacing the foreach loop
+                    # with a while loop with a manually maintained
+                    # array index into @unused_files.
+                    #
+                    # would also be good not to require the user to
+                    # hit RET, possibly by using Term::ReadKey (see
+                    # example code in its POD).
+                    $response = lc(prompt("Drop this unused file?  (y/n/o)"));
                     if ($response eq 'y') {
                         push @to_drop, $unused_file->{number};
                         last;