using syswrite instead of print
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Fri, 19 Aug 2011 15:10:12 +0200
changeset 77 e65d90b1682d
parent 76 b87d2064db02
child 78 603b47708d37
using syswrite instead of print
bin/imager.save
t/001-save-restore.t
--- 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");