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 | ba983af978b8a50b61dd8dbebf32bdeed71a9837 (patch) | |
| tree | 786468d9876d90fd6815b063eeb2cf63e483bca6 /generic/tclIORChan.c | |
| parent | 7f0bded35ff4e57468cb618dd14770a60d268195 (diff) | |
| download | tcl-ba983af978b8a50b61dd8dbebf32bdeed71a9837.zip tcl-ba983af978b8a50b61dd8dbebf32bdeed71a9837.tar.gz tcl-ba983af978b8a50b61dd8dbebf32bdeed71a9837.tar.bz2 | |
Remove unused variable, don't use deprecated function, some formatting.
Diffstat (limited to 'generic/tclIORChan.c')
| -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 |