diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-11-16 20:37:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-11-16 20:37:09 (GMT) |
| commit | 1fae54c8c004d072d62e3d867ef4e66b238d0bcd (patch) | |
| tree | 54c9a396d306c15ea15d97c4b9cfc5066bd15c27 /generic/tclOOInfo.c | |
| parent | 511765faae09dd5a56da42a2df297514cff7df3e (diff) | |
| parent | 35299947e3250ea5b40f66bf8ee1c78844a9b553 (diff) | |
| download | tcl-1fae54c8c004d072d62e3d867ef4e66b238d0bcd.zip tcl-1fae54c8c004d072d62e3d867ef4e66b238d0bcd.tar.gz tcl-1fae54c8c004d072d62e3d867ef4e66b238d0bcd.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclOOInfo.c')
| -rw-r--r-- | generic/tclOOInfo.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c index 8c45e1b..fefeb0f 100644 --- a/generic/tclOOInfo.c +++ b/generic/tclOOInfo.c @@ -118,12 +118,14 @@ TclOOInitInfo( */ infoCmd = Tcl_FindCommand(interp, "info", NULL, TCL_GLOBAL_ONLY); - Tcl_GetEnsembleMappingDict(NULL, infoCmd, &mapDict); - Tcl_DictObjPut(NULL, mapDict, Tcl_NewStringObj("object", -1), - Tcl_NewStringObj("::oo::InfoObject", -1)); - Tcl_DictObjPut(NULL, mapDict, Tcl_NewStringObj("class", -1), - Tcl_NewStringObj("::oo::InfoClass", -1)); - Tcl_SetEnsembleMappingDict(interp, infoCmd, mapDict); + if (infoCmd) { + Tcl_GetEnsembleMappingDict(NULL, infoCmd, &mapDict); + Tcl_DictObjPut(NULL, mapDict, Tcl_NewStringObj("object", -1), + Tcl_NewStringObj("::oo::InfoObject", -1)); + Tcl_DictObjPut(NULL, mapDict, Tcl_NewStringObj("class", -1), + Tcl_NewStringObj("::oo::InfoClass", -1)); + Tcl_SetEnsembleMappingDict(interp, infoCmd, mapDict); + } } /* |