Artifact 673e87c0ab6698949ffed014306211ff9d0af701:
--- png.tcl.old Sun Nov 26 15:54:57 2006
+++ png.tcl Thu Apr 26 23:27:37 2007
@@ -158,6 +158,7 @@
}
close $fh
set fh [open $file w]
+ fconfigure $fh -encoding binary -translation binary -eofchar {}
puts -nonewline $fh $data
close $fh
}
