# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1313593284 -7200
# Node ID 9dd924d5a249f1b8c5df1b592778475037885be0
# Parent  a8495233e04c1e8b637611dbae3caac127742052
more descriptive info from compressor

diff -r a8495233e04c -r 9dd924d5a249 bin/imager.compress
--- a/bin/imager.compress	Wed Aug 17 16:16:23 2011 +0200
+++ b/bin/imager.compress	Wed Aug 17 17:01:24 2011 +0200
@@ -34,7 +34,7 @@
 
     find(
         sub {
-            say "dir $_" and return if -d;
+            say "dir $File::Find::name" and return if -d;
             return if not (-f and /^[\da-f]{32}(?:\.x\.gz|\.gz)?$/);
 
             open(my $fh, $_);