summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 702e2a0..0ba864a 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -1551,10 +1551,10 @@ Tcl_CreateChannel(
if (NULL == typePtr->closeProc)
Tcl_Panic("Required closeProc is unset.");
- if (NULL == typePtr->inputProc)
+ if ((TCL_READABLE & mask) && (NULL == typePtr->inputProc))
Tcl_Panic("Required inputProc is unset.");
- if (NULL == typePtr->outputProc)
+ if ((TCL_WRITABLE & mask) && (NULL == typePtr->outputProc))
Tcl_Panic("Required outputProc is unset.");
if (NULL == typePtr->watchProc)