# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1313759412 -7200
# Node ID e65d90b1682d6d9f22d3c1f4396c1f899dd5d7c5
# Parent  b87d2064db024c6ca1d2d4060a195e14e6e8f19f
using syswrite instead of print

diff -r b87d2064db02 -r e65d90b1682d bin/imager.save
--- 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] .= " *";
diff -r b87d2064db02 -r e65d90b1682d t/001-save-restore.t
--- 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");