diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-06-20 11:56:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-06-20 11:56:04 (GMT) |
| commit | e3cdf03cb54e1613c1626a641c0cd692623ca78c (patch) | |
| tree | 0e439b46fd7c5462f9ad2a37c2cc023200693c1a /generic | |
| parent | 839d50e84e4e13a146084049d87adb14caa03673 (diff) | |
| download | tcl-e3cdf03cb54e1613c1626a641c0cd692623ca78c.zip tcl-e3cdf03cb54e1613c1626a641c0cd692623ca78c.tar.gz tcl-e3cdf03cb54e1613c1626a641c0cd692623ca78c.tar.bz2 | |
Fix [3148192] implementation, restoring legacy form again
FossilOrigin-Name: 7b76da3992ea486b3db9919a8934ef507886d723
Diffstat (limited to 'generic')
| -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 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 |