# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1312191265 -7200
# Node ID 3a61c4dd7b0aeb3bff6a90c02b7bb1ebeb51a35a
# Parent  37e863785ccc5b2a3a2b975b57271cf52f16987f# Parent  f43084e0ef0a6542491a6b2a8ab4fa718a704093
[merged]

diff -r 37e863785ccc -r 3a61c4dd7b0a bin/imager.check
--- 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;
 
         },