add _store_unused_cache too

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/Git/Annex.pm b/lib/Git/Annex.pm
index 7d923f9..4287126 100644
--- a/lib/Git/Annex.pm
+++ b/lib/Git/Annex.pm
@@ -108,6 +108,12 @@ has _unused_cache => (
     is      => "lazy",
     default => sub { shift->_git_path(catfile(qw(annex unused_info))) });
 
+sub _store_unused_cache {
+    my $self = shift;
+    $self->{_unused}{timestamp} = time;
+    store $self->{_unused}, $self->_unused_cache;
+}
+
 sub _clear_unused_cache {
     my $self = shift;
     delete $self->{_unused};