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);