# HG changeset patch
# User Heiko Schlittermann (CTQ) <hs@schlittermann.de>
# Date 1312191254 -7200
# Node ID f43084e0ef0a6542491a6b2a8ab4fa718a704093
# Parent  9a717ec183a23580f221f5b3fb47177729d3cbcd
fixed abs_path usage (on curlftpfs I got empty values)

diff -r 9a717ec183a2 -r f43084e0ef0a bin/imager.check
--- 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;
 
         },