diff --git a/lib/LDV/Imgbin.pm b/lib/LDV/Imgbin.pm index 60e384c..741520c 100644 --- a/lib/LDV/Imgbin.pm +++ b/lib/LDV/Imgbin.pm @@ -157,7 +157,7 @@ sub prune { opendir(my $DH, $root) or die("opendir: $!\n"); my @files = grep { m/\d+\.json/oi } readdir($DH); - my @times = map { s/\.json//oi } @items; + my @times = map { s/\.json//oi } @files; closedir($DH); my $now = time();