summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-02-29 22:38:28 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-02-29 22:38:28 (GMT)
commit4afe209dcaf4aed60329f4f216ffd383d0aa1c61 (patch)
treeba8097797b0b02c73971d1ae6c08582b3d1be312
parent6ad807858b1217d40a9e5a2c1d5bf241625971ca (diff)
parent1417797aff03fc80f3d4758b27341bc4e482fc50 (diff)
downloadtcl-4afe209dcaf4aed60329f4f216ffd383d0aa1c61.zip
tcl-4afe209dcaf4aed60329f4f216ffd383d0aa1c61.tar.gz
tcl-4afe209dcaf4aed60329f4f216ffd383d0aa1c61.tar.bz2
oops, that's no utf-8 BOM ;-(
-rw-r--r--generic/tclIOUtil.c2
-rw-r--r--tests/source.test2
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 44849d1..efdb457 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -1803,7 +1803,7 @@ Tcl_FSEvalFileEx(
* otherwise replace them [Bug 3466099].
*/
if (Tcl_ReadChars(chan, objPtr, -1,
- memcmp(string, "\xef\xbf\xbe", 3)) < 0) {
+ memcmp(string, "\xef\xbb\xbf", 3)) < 0) {
Tcl_Close(interp, chan);
Tcl_AppendResult(interp, "couldn't read file \"",
Tcl_GetString(pathPtr), "\": ", Tcl_PosixError(interp), NULL);
diff --git a/tests/source.test b/tests/source.test
index e79b211..641838c 100644
--- a/tests/source.test
+++ b/tests/source.test
@@ -112,7 +112,7 @@ test source-2.7 {utf-8 with BOM} -setup {
} -body {
set out [open $sourcefile w]
fconfigure $out -encoding utf-8
- puts $out "\ufffeset y new-y"
+ puts $out "\ufeffset y new-y"
close $out
set y old-y
source -encoding utf-8 $sourcefile