--- a/bin/imager.check	Mon Aug 01 10:41:15 2011 +0200
+++ b/bin/imager.check	Mon Aug 01 11:34:25 2011 +0200
@@ -143,7 +143,7 @@
             # some optional extension
             (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/;
             return if exists $block{$rn};
-            push @unused, abs_path $File::Find::name;
+            push @unused => abs_path $_;
             return;
 
         },