diff options
author | dgp <dgp@noemail.net> | 2011-04-21 13:47:48 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-21 13:47:48 (GMT) |
commit | 67e50a2085da9cf3879963bfdc831f1bb054fa71 (patch) | |
tree | 6159f577b200fa32f4575a1ead43307fa7ff8f7f /generic/tclNamesp.c | |
parent | 98800f0eda0647431a578cb25987827538b73ec7 (diff) | |
parent | 8ffca00c252fc6b8bd5a411c2d0db20a45adfb71 (diff) | |
download | tcl-67e50a2085da9cf3879963bfdc831f1bb054fa71.zip tcl-67e50a2085da9cf3879963bfdc831f1bb054fa71.tar.gz tcl-67e50a2085da9cf3879963bfdc831f1bb054fa71.tar.bz2 |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
FossilOrigin-Name: 36b0307ba2ada5375598e444799d6f9fd0edb46b
Diffstat (limited to 'generic/tclNamesp.c')
-rw-r--r-- | generic/tclNamesp.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 45b9f6d..7a09490 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -4715,8 +4715,13 @@ SetNsNameFromAny( const char *dummy; Namespace *nsPtr, *dummy1Ptr, *dummy2Ptr; register ResolvedNsName *resNamePtr; - const char *name = TclGetString(objPtr); + const char *name; + + if (interp == NULL) { + return TCL_ERROR; + } + name = TclGetString(objPtr); TclGetNamespaceForQualName(interp, name, NULL, TCL_FIND_ONLY_NS, &nsPtr, &dummy1Ptr, &dummy2Ptr, &dummy); |