diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-06-20 11:59:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-06-20 11:59:53 (GMT) |
| commit | 8d491be45a9f0228131d2270f9df11a5de49c796 (patch) | |
| tree | d4378dc4a193c780203ebbe55a1a398382f9443a /generic/tclIOCmd.c | |
| parent | a1e02fc1aef789c4ae0fb361985350eff6038f54 (diff) | |
| parent | 70a602230d375d8be7a9e4a1c81e74b05fc2659b (diff) | |
| download | tcl-8d491be45a9f0228131d2270f9df11a5de49c796.zip tcl-8d491be45a9f0228131d2270f9df11a5de49c796.tar.gz tcl-8d491be45a9f0228131d2270f9df11a5de49c796.tar.bz2 | |
Merg [3148192] implementation fix, and caveat comment
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 9294dd6..349814a 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -140,7 +140,7 @@ Tcl_PutsObjCmd( string = objv[3]; break; #if TCL_MAJOR_VERSION < 9 - } 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 |