= fix map {}

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