drop the cache if we have removed all unused files

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
index 5057e736..f72e8783 100644
--- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
+++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
@@ -196,7 +196,13 @@ sub review_unused {
     # unused files left after this run.  note in non-interactive mode
     # @to_drop will be empty so will always return 1 if we got this
     # far in the subroutine
-    return @to_drop != @unused_files;
+    if (@to_drop == @unused_files) {
+        delete $self->{_unused_files};
+        unlink $self->_unused_cache_file;
+        return 0;
+    } else {
+        return 1;
+    }
 }