diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-04-16 11:20:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-04-16 11:20:54 (GMT) |
| commit | be0324597aa8d46f7ad4f8608ba2644b40ffd504 (patch) | |
| tree | 786468d9876d90fd6815b063eeb2cf63e483bca6 /generic | |
| parent | fcca5df8d6fb5bfd7dd4b6d10dbef115565ddc3f (diff) | |
| download | tcl-be0324597aa8d46f7ad4f8608ba2644b40ffd504.zip tcl-be0324597aa8d46f7ad4f8608ba2644b40ffd504.tar.gz tcl-be0324597aa8d46f7ad4f8608ba2644b40ffd504.tar.bz2 | |
Remove unused variable, don't use deprecated function, some formatting.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclIORChan.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 16dc1ed..29819b6 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -2324,7 +2324,7 @@ InvokeTclMethod( Tcl_IncrRefCount(cmd); sr = Tcl_SaveInterpState(rcPtr->interp, 0 /* Dummy */); Tcl_Preserve(rcPtr->interp); - result = Tcl_GlobalEvalObj(rcPtr->interp, cmd); + result = Tcl_EvalObjEx(rcPtr->interp, cmd, TCL_EVAL_GLOBAL); /* * We do not try to extract the result information if the caller has no |