avoid repeatedly checking whether a file is present within this run

That would break going backwards in the list.

1 files changed, 7 insertions, 4 deletions

diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
index 0d7989eb..e17de666 100644
--- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
+++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
@@ -108,13 +108,16 @@ sub review_unused {
         my $contentlocation = $self->abs_contentlocation($unused_file->{key});
         if (defined $opts{from}) {
             try {
-                $self->git->annex("readpresentkey", $unused_file->{key}, $uuid);
+                $self->git->annex("readpresentkey", $unused_file->{key},
+                    $uuid);
             }
             catch {
-                $i++, next UNUSED;
+                splice @unused_files, $i, 1;
+                next UNUSED;
             };
-        } else {
-            $i++, next UNUSED unless defined $contentlocation;
+        } elsif (!defined $contentlocation) {
+            splice @unused_files, $i, 1;
+            next UNUSED;
         }
 
         system('clear', '-x') if $opts{interactive};