From e3cdf03cb54e1613c1626a641c0cd692623ca78c Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Mon, 20 Jun 2011 11:56:04 +0000 Subject: Fix [3148192] implementation, restoring legacy form again FossilOrigin-Name: 7b76da3992ea486b3db9919a8934ef507886d723 --- generic/tclIOCmd.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v0.12