diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:24:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:24:25 (GMT) |
| commit | 842312f3957922d5d3255fd5d2a511220f26c748 (patch) | |
| tree | 0c3fcde0a02a3747b4b81d374da8af259c859890 /generic/tclNamesp.c | |
| parent | 0931d1b4cbfc3fca3e3bd7e227bd7632853c1384 (diff) | |
| parent | 3dee0582a464245f4ebfb6cc887e198566d3f035 (diff) | |
| download | tcl-842312f3957922d5d3255fd5d2a511220f26c748.zip tcl-842312f3957922d5d3255fd5d2a511220f26c748.tar.gz tcl-842312f3957922d5d3255fd5d2a511220f26c748.tar.bz2 | |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
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 16f14e9..aed28db 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -4681,8 +4681,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); |