--- 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, $_);