diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-20 09:01:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-20 09:01:46 (GMT) |
| commit | 56b69c4e9a3935058b4fc2dedbfe3051b3a154a4 (patch) | |
| tree | 193dadd86540a4050b0c5b253152cee15debedff /generic/tclLoad.c | |
| parent | d2b1e66352e07f5adca772ea04e970f6573995c8 (diff) | |
| download | tcl-56b69c4e9a3935058b4fc2dedbfe3051b3a154a4.zip tcl-56b69c4e9a3935058b4fc2dedbfe3051b3a154a4.tar.gz tcl-56b69c4e9a3935058b4fc2dedbfe3051b3a154a4.tar.bz2 | |
It might be that iPtr->result points to an empty string but that iPtr->objResult contains the real error-message. So, handle that too.
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index a2cdc04..61c763f 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -470,7 +470,7 @@ Tcl_LoadObjCmd( if (code != TCL_OK) { Interp *iPtr = (Interp *) target; - if (iPtr->result != NULL) { + if (iPtr->result != NULL && iPtr->result[0] != '\0') { /* We have an Tcl 8.x extension with incompatible stub table. */ Tcl_Obj *obj = Tcl_NewStringObj(iPtr->result, -1); Tcl_SetObjResult(interp, obj); |