diff options
Diffstat (limited to 'tool/mkvsix.tcl')
| -rw-r--r-- | tool/mkvsix.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tool/mkvsix.tcl b/tool/mkvsix.tcl index c874d538f..066321363 100644 --- a/tool/mkvsix.tcl +++ b/tool/mkvsix.tcl @@ -156,7 +156,7 @@ proc readFile { fileName } { # may contain binary data. # set file_id [open $fileName RDONLY] - fconfigure $file_id -encoding binary -translation binary + fconfigure $file_id -translation binary set result [read $file_id] close $file_id return $result @@ -168,7 +168,7 @@ proc writeFile { fileName data } { # binary data. # set file_id [open $fileName {WRONLY CREAT TRUNC}] - fconfigure $file_id -encoding binary -translation binary + fconfigure $file_id -translation binary puts -nonewline $file_id $data close $file_id return "" |