diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-04-21 13:24:25 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-04-21 13:24:25 (GMT) |
| commit | 5b841daa525350d24b7414e940edc5c0649033af (patch) | |
| tree | 0c3fcde0a02a3747b4b81d374da8af259c859890 /generic/tclProc.c | |
| parent | 83f05ab4d19b0d9016a696f165061f0ee90fa969 (diff) | |
| parent | b3bbfc7eff41c2ac12668efaf6254c6958662127 (diff) | |
| download | tcl-5b841daa525350d24b7414e940edc5c0649033af.zip tcl-5b841daa525350d24b7414e940edc5c0649033af.tar.gz tcl-5b841daa525350d24b7414e940edc5c0649033af.tar.bz2 | |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index b8a5e6d..dd12901 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2447,12 +2447,16 @@ SetLambdaFromAny( int objc, result; Proc *procPtr; + if (interp == NULL) { + return TCL_ERROR; + } + /* * Convert objPtr to list type first; if it cannot be converted, or if its * length is not 2, then it cannot be converted to lambdaType. */ - result = TclListObjGetElements(interp, objPtr, &objc, &objv); + result = TclListObjGetElements(NULL, objPtr, &objc, &objv); if ((result != TCL_OK) || ((objc != 2) && (objc != 3))) { TclNewLiteralStringObj(errPtr, "can't interpret \""); Tcl_AppendObjToObj(errPtr, objPtr); |