summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-06-20 11:56:04 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-06-20 11:56:04 (GMT)
commit70a602230d375d8be7a9e4a1c81e74b05fc2659b (patch)
tree0e439b46fd7c5462f9ad2a37c2cc023200693c1a
parent1d0cd247da22409b6621fad49f37c6a50ff02cfe (diff)
downloadtcl-70a602230d375d8be7a9e4a1c81e74b05fc2659b.zip
tcl-70a602230d375d8be7a9e4a1c81e74b05fc2659b.tar.gz
tcl-70a602230d375d8be7a9e4a1c81e74b05fc2659b.tar.bz2
Fix [3148192] implementation, restoring legacy form again
-rw-r--r--generic/tclIOCmd.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index e166e94..0c05cbf 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -138,7 +138,7 @@ Tcl_PutsObjCmd(
chanObjPtr = objv[2];
string = objv[3];
break;
- } else if (strcmp(TclGetString(objv[2]), "nonewline") == 0) {
+ } else if (strcmp(TclGetString(objv[3]), "nonewline") == 0) {
/*
* The code below provides backwards compatibility with an old
* form of the command that is no longer recommended or