From b5a751c176923d5345b29b03b59c229f21791a0f Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Thu, 24 Dec 2015 23:51:42 +1000
Subject: [PATCH] * LDV::Zerobin : fix prune()

---
 lib/LDV/Zerobin.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/LDV/Zerobin.pm b/lib/LDV/Zerobin.pm
index 4adc386..f2e02c9 100644
--- a/lib/LDV/Zerobin.pm
+++ b/lib/LDV/Zerobin.pm
@@ -167,7 +167,7 @@ sub prune {
       next unless $file =~ m/^(\d+)\.json$/oi;
       my $time = $1;
       my $data = $self->_metadata_load($time);
-      next if $data->{expire} > $time; # not yet
+      next if $data->{expire} > $currtime; # not yet
       my $date = strftime("%Y-%m-%d %H:%M", localtime($data->{expire}));
       $self->app->log->info("Removing expired paste: $file ($date)");
       unlink $self->_metadata_path($time);