diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-26 10:28:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-26 10:28:11 (GMT) |
| commit | 0e90b5c0cf5d0cf25ebb0ef40f1e014f675b7b0c (patch) | |
| tree | 9d29cac7c763ccb8b87c00eef67590e467d3ff51 /tests/winDde.test | |
| parent | 15ba6741cfdbedfb264478ebef44ba013cf9fd97 (diff) | |
| parent | 9d13d5e64b0b91da24a22b1ac9e2d3bc403c433e (diff) | |
| download | tcl-0e90b5c0cf5d0cf25ebb0ef40f1e014f675b7b0c.zip tcl-0e90b5c0cf5d0cf25ebb0ef40f1e014f675b7b0c.tar.gz tcl-0e90b5c0cf5d0cf25ebb0ef40f1e014f675b7b0c.tar.bz2 | |
Merge 8.7. Add "ilp32" build flag
Diffstat (limited to 'tests/winDde.test')
| -rw-r--r-- | tests/winDde.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/winDde.test b/tests/winDde.test index dbadeb4..ad21426 100644 --- a/tests/winDde.test +++ b/tests/winDde.test @@ -37,6 +37,7 @@ proc createChildProcess {ddeServerName args} { file delete -force $::scriptName set f [open $::scriptName w+] + fconfigure $f -encoding utf-8 puts $f [list set ddeServerName $ddeServerName] puts $f [list load $::ddelib Dde] puts $f { @@ -96,7 +97,7 @@ proc createChildProcess {ddeServerName args} { # run the child server script. set f [open |[list [interpreter] $::scriptName] r] - fconfigure $f -buffering line + fconfigure $f -buffering line -encoding utf-8 gets $f line return $f } |