summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-04-08 17:10:17 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-04-08 17:10:17 (GMT)
commit0d5c0c748ea73b02b422d5cf116b12754a28775e (patch)
tree9bbfae4fa08dbb305104cc4861ffb59e78058a3a /generic
parent7be32479d42c32123bc76733bb2fac7d909fdbd4 (diff)
downloadtcl-0d5c0c748ea73b02b422d5cf116b12754a28775e.zip
tcl-0d5c0c748ea73b02b422d5cf116b12754a28775e.tar.gz
tcl-0d5c0c748ea73b02b422d5cf116b12754a28775e.tar.bz2
explanatory comment
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c9
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index f7cba66..ddc0607 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIO.c,v 1.82 2005/01/27 00:23:23 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.83 2005/04/08 17:10:17 dgp Exp $
*/
#include "tclInt.h"
@@ -1141,6 +1141,13 @@ Tcl_CreateChannel(typePtr, chanName, instanceData, mask)
/*
* Set the channel to system default encoding.
+ *
+ * Note the strange bit of protection taking place here.
+ * If the system encoding name is reported back as "binary",
+ * something weird is happening. Tcl provides no "binary"
+ * encoding, so someone else has provided one. We ignore it
+ * so as not to interfere with the "magic" interpretation
+ * that Tcl_Channels give to the "-encoding binary" option.
*/
statePtr->encoding = NULL;