bin/imager.compress
changeset 75 9dd924d5a249
parent 69 c12fa4d32903
child 76 b87d2064db02
--- 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, $_);