diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-01-31 20:02:58 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-01-31 20:02:58 (GMT) |
| commit | f7bd9e84e2ffed2670faa3f6eb2f62eb453eb12e (patch) | |
| tree | 23d236d0a6d7feb0f30c29bca301b2198d48fc0d /generic/tclIO.c | |
| parent | e8a45e5fdc7e9459c0dd06a19e356351a52bbff3 (diff) | |
| download | tcl-f7bd9e84e2ffed2670faa3f6eb2f62eb453eb12e.zip tcl-f7bd9e84e2ffed2670faa3f6eb2f62eb453eb12e.tar.gz tcl-f7bd9e84e2ffed2670faa3f6eb2f62eb453eb12e.tar.bz2 | |
Do not call updateStringProc directly. We have TclGetString() for that.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 542d97d..71f8f53 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10429,17 +10429,8 @@ SetChannelFromAny( } } if (objPtr->typePtr != &tclChannelType) { - Tcl_Channel chan; + Tcl_Channel chan = Tcl_GetChannel(interp, TclGetString(objPtr), NULL); - /* - * We need a valid string with which to check for a valid channel, but - * make sure not to free internal rep until validated. [Bug 1847044] - */ - if ((objPtr->typePtr != NULL) && (objPtr->bytes == NULL)) { - objPtr->typePtr->updateStringProc(objPtr); - } - - chan = Tcl_GetChannel(interp, objPtr->bytes, NULL); if (chan == NULL) { return TCL_ERROR; } |