diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-01-19 13:06:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-01-19 13:06:40 (GMT) |
| commit | b29c8c9024a6b9e1b6ede8a02f6d3243607e4410 (patch) | |
| tree | 57df9a3646872d41da4caf86b97f8e20ec90bbfe /generic/tclZlib.c | |
| parent | 75a948c82b849db12be6bbe74005435ff2905812 (diff) | |
| parent | 7dd65dcdd0d8e9013803356230cce9a9ac6dfef3 (diff) | |
| download | tcl-bug_593baa032c.zip tcl-bug_593baa032c.tar.gz tcl-bug_593baa032c.tar.bz2 | |
merge trunkbug_593baa032c
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 44dd9e0..ba3e9cb 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -762,7 +762,7 @@ Tcl_ZlibStreamInit( */ if (interp != NULL) { - if (Tcl_Eval(interp, "::incr ::tcl::zlib::cmdcounter") != TCL_OK) { + if (Tcl_EvalEx(interp, "::incr ::tcl::zlib::cmdcounter", -1, 0) != TCL_OK) { goto error; } Tcl_DStringInit(&cmdname); @@ -3816,7 +3816,7 @@ TclZlibInit( * commands. */ - Tcl_Eval(interp, "namespace eval ::tcl::zlib {variable cmdcounter 0}"); + Tcl_EvalEx(interp, "namespace eval ::tcl::zlib {variable cmdcounter 0}", -1, 0); /* * Create the public scripted interface to this file's functionality. |