--- a/bin/imager.save	Wed Aug 17 17:21:04 2011 +0200
+++ b/bin/imager.save	Fri Aug 19 15:10:12 2011 +0200
@@ -181,7 +181,7 @@
 		}
             }
 
-            print {$out} $buffer;
+            syswrite $out => $buffer;
             close($out);
             rename($out => "$data/$file$ext");
             $index{BLOCKS}[$. - 1] .= " *";

--- a/t/001-save-restore.t	Wed Aug 17 17:21:04 2011 +0200
+++ b/t/001-save-restore.t	Fri Aug 19 15:10:12 2011 +0200
@@ -12,9 +12,11 @@
 my $err = File::Temp->new;
 my $dir = File::Temp->newdir;
 
+note("preparing the source");
 open(my $out, "+>$dir/source");
 print $out rand while -s $out < SIZE;
 
+note("preparing the images dir");
 mkdir "$dir/images";
 
 system("perl -Mblib blib/script/imager.save $dir/source:source $dir/images");