diff --git a/lib/LDV/Imgbin.pm b/lib/LDV/Imgbin.pm index 2c5eb5f..0c97419 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 } @files; + my @times = map { s/\.json//oi; $_ } @files; closedir($DH); my $now = time();