summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-02-29 22:41:00 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-02-29 22:41:00 (GMT)
commitc6d76efcfbaa9d03aeaecec19843a745556dcb18 (patch)
tree298d58902bfc7e21e75a5256105ddd57f6b783b8 /generic/tclIOUtil.c
parent336410f92239eecba4d739de6e5b67cf02990694 (diff)
parent4afe209dcaf4aed60329f4f216ffd383d0aa1c61 (diff)
downloadtcl-c6d76efcfbaa9d03aeaecec19843a745556dcb18.zip
tcl-c6d76efcfbaa9d03aeaecec19843a745556dcb18.tar.gz
tcl-c6d76efcfbaa9d03aeaecec19843a745556dcb18.tar.bz2
oops, that's no utf-8 BOM ;-(
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 62553f2..9905256 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -1744,7 +1744,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);
@@ -1871,7 +1871,7 @@ TclNREvalFile(
* 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);