diff options
author | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:47:48 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:47:48 (GMT) |
commit | 6998aa298515d30c3b2e0cee78e2af476fd2ed91 (patch) | |
tree | 6159f577b200fa32f4575a1ead43307fa7ff8f7f /generic/tclIO.c | |
parent | 4779fe18796c2f1adad2712560bc0cfe35e844be (diff) | |
parent | 7814414e5c501546b9abc27e7d5016acb7a9ff03 (diff) | |
download | tcl-6998aa298515d30c3b2e0cee78e2af476fd2ed91.zip tcl-6998aa298515d30c3b2e0cee78e2af476fd2ed91.tar.gz tcl-6998aa298515d30c3b2e0cee78e2af476fd2ed91.tar.bz2 |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 8f76b26..c7fab6c 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -11196,6 +11196,9 @@ SetChannelFromAny( ChannelState *statePtr; Interp *interpPtr; + if (interp == NULL) { + return TCL_ERROR; + } if (objPtr->typePtr == &tclChannelType) { /* * The channel is valid until any call to DetachChannel occurs. |