diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2014-04-16 11:20:54 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2014-04-16 11:20:54 (GMT) |
| commit | d18594e3e256a6f81df66c5562b1c4d3fac0111c (patch) | |
| tree | 786468d9876d90fd6815b063eeb2cf63e483bca6 /generic/tclIORChan.c | |
| parent | e20bfcc72e97b4f8fe8a51d67f10571edccf6ab6 (diff) | |
| download | tcl-d18594e3e256a6f81df66c5562b1c4d3fac0111c.zip tcl-d18594e3e256a6f81df66c5562b1c4d3fac0111c.tar.gz tcl-d18594e3e256a6f81df66c5562b1c4d3fac0111c.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 |