diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-03-06 12:25:11 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-03-06 12:25:11 (GMT) |
| commit | 3e2014216af5a54eec83355257ed2f95f9d8bf41 (patch) | |
| tree | 4a2834b40b9ab8ff94faeb1fce219600a6620422 /generic/tclBasic.c | |
| parent | fa78a0da148fca55331d29e43d006f18c6e9b524 (diff) | |
| download | tcl-3e2014216af5a54eec83355257ed2f95f9d8bf41.zip tcl-3e2014216af5a54eec83355257ed2f95f9d8bf41.tar.gz tcl-3e2014216af5a54eec83355257ed2f95f9d8bf41.tar.bz2 | |
part of [db95e7a61e] reverted for consistency reasons: unsupported namespace is exported in previous versions (so this is more compatible to 8.5/8.6).
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 644f3e6..d914690 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -975,6 +975,13 @@ Tcl_CreateInterp(void) Tcl_NRCreateCommand(interp, "::tcl::unsupported::inject", NULL, NRCoroInjectObjCmd, NULL, NULL); + /* Export unsupported commands */ + nsPtr = Tcl_FindNamespace(interp, "::tcl::unsupported", NULL, 0); + if (nsPtr) { + Tcl_Export(interp, nsPtr, "*", 1); + } + + #ifdef USE_DTRACE /* * Register the tcl::dtrace command. |