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