diff options
author | dgp <dgp@users.sourceforge.net> | 2014-05-08 03:28:56 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-05-08 03:28:56 (GMT) |
commit | 311f44633e3dab963b7705cd04ffa3a4b6c4dcce (patch) | |
tree | 691948500985fc43c2eee0e90a31e76c654c8e18 /generic/tclIOCmd.c | |
parent | 3f767c15a3a870d5692ae43cd6151fb86ffa2bf3 (diff) | |
parent | 5e1038193c820c5a5ae7b27886d8d3100e18ea49 (diff) | |
download | tcl-311f44633e3dab963b7705cd04ffa3a4b6c4dcce.zip tcl-311f44633e3dab963b7705cd04ffa3a4b6c4dcce.tar.gz tcl-311f44633e3dab963b7705cd04ffa3a4b6c4dcce.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclIOCmd.c')
-rw-r--r-- | generic/tclIOCmd.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 14910d7..084cefb 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -349,7 +349,8 @@ Tcl_GetsObjCmd( if (objc == 3) { if (Tcl_ObjSetVar2(interp, objv[2], NULL, linePtr, TCL_LEAVE_ERR_MSG) == NULL) { - return TCL_ERROR; + code = TCL_ERROR; + goto done; } Tcl_SetObjResult(interp, Tcl_NewIntObj(lineLen)); } else { |