* fix variable name

9 years ago · c2ddc5a6a4
1 changed files with 1 additions and 1 deletions
--- 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();