diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-28 20:09:22 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-12-28 20:09:22 +0000 |
| commit | 9a7a97968244a05c5f334f5d280b308ac4bb31c5 (patch) | |
| tree | 7137829beb1434022a68939846770817e4278e82 /lib | |
| parent | 79519cb28a880448640ef8ae03b3ade664b0028f (diff) | |
| download | dotfiles-9a7a97968244a05c5f334f5d280b308ac4bb31c5.tar.gz | |
unbreak going back in the list
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5/Local/MrRepo/Repo/Git/Annex.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm index d8067148..de2255ab 100644 --- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm +++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm @@ -171,10 +171,11 @@ sub review_unused { } elsif ($response eq 'o' and defined $contentlocation) { system('xdg-open', $contentlocation); } elsif ($response eq 'b' and $i > 0) { + $i--; pop @to_drop if @to_drop and $to_drop[$#to_drop] eq - $unused_files[--$i]->{number}; + $unused_files[$i]->{number}; next UNUSED; } elsif ($response eq 'd' and $i > 0) { # user wants to drop the list we've |