diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-08-13 16:45:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-08-13 16:45:03 (GMT) |
| commit | 1cc03c884b3940c3fa29e8c52ae61c3d019d08fd (patch) | |
| tree | dfd44064802e11ed2634e08abcd57c3cef837ae4 /generic/tclIORChan.c | |
| parent | cababb3290c4faac824be017a821650a819eb3f1 (diff) | |
| download | tcl-1cc03c884b3940c3fa29e8c52ae61c3d019d08fd.zip tcl-1cc03c884b3940c3fa29e8c52ae61c3d019d08fd.tar.gz tcl-1cc03c884b3940c3fa29e8c52ae61c3d019d08fd.tar.bz2 | |
A bit of code safety, and then a test demonstrating next issue.
Diffstat (limited to 'generic/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 6592f9e..85a35b8 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -753,8 +753,11 @@ CallNotify( int flags) { PostEvent *pevPtr = (PostEvent *)evPtr; + Channel *chanPtr = (Channel *)pevPtr->chan; - Tcl_NotifyChannel(pevPtr->chan, pevPtr->events); + if (chanPtr->typePtr != NULL) { + Tcl_NotifyChannel(pevPtr->chan, pevPtr->events); + } TclChannelRelease(pevPtr->chan); return 1; } |