diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-04-21 13:47:48 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-04-21 13:47:48 (GMT) |
| commit | 19572419d3922118dad03e33289549dc1e38bcec (patch) | |
| tree | 6159f577b200fa32f4575a1ead43307fa7ff8f7f /generic/tclObj.c | |
| parent | d0f5b3a3a137d763a2c408fd9f4cfc43a3c00db7 (diff) | |
| parent | 5b841daa525350d24b7414e940edc5c0649033af (diff) | |
| download | tcl-19572419d3922118dad03e33289549dc1e38bcec.zip tcl-19572419d3922118dad03e33289549dc1e38bcec.tar.gz tcl-19572419d3922118dad03e33289549dc1e38bcec.tar.bz2 | |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 630226f..129d80d 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -4379,6 +4379,10 @@ SetCmdNameFromAny( Namespace *currNsPtr; register ResolvedCmdName *resPtr; + if (interp == NULL) { + return TCL_ERROR; + } + /* * Find the Command structure, if any, that describes the command called * "name". Build a ResolvedCmdName that holds a cached pointer to this |