--- a/bin/imager.check	Mon Aug 01 00:02:32 2011 +0200
+++ b/bin/imager.check	Mon Aug 01 11:34:14 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;
 
         },