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 | 04f2a36b582354bf50c44ea34adbafe708ef912b (patch) | |
| tree | 193dadd86540a4050b0c5b253152cee15debedff /generic/tclLoad.c | |
| parent | 0932bd5174700a0e8777df3cc1702280cbf63667 (diff) | |
| download | tcl-04f2a36b582354bf50c44ea34adbafe708ef912b.zip tcl-04f2a36b582354bf50c44ea34adbafe708ef912b.tar.gz tcl-04f2a36b582354bf50c44ea34adbafe708ef912b.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); |