Attachment "219360.patch" to
ticket [219360ffff]
added by
hobbs
2001-09-13 02:47:39.
Index: unix/tclUnixChan.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixChan.c,v
retrieving revision 1.17.2.1
diff -b -c -r1.17.2.1 tclUnixChan.c
*** unix/tclUnixChan.c 2001/04/03 22:54:39 1.17.2.1
--- unix/tclUnixChan.c 2001/09/12 19:38:26
***************
*** 1344,1349 ****
--- 1344,1356 ----
translation = "auto crlf";
channelTypePtr = &ttyChannelType;
fsPtr = TtyInit(fd);
+ } else if ( errno == EIO ) {
+ close(fd);
+ if (interp != (Tcl_Interp *) NULL) {
+ Tcl_AppendResult(interp, "Error in open \"", fileName, "\": ",
+ Tcl_PosixError(interp), (char *) NULL);
+ }
+ return NULL;
} else
#endif /* SUPPORTS_TTY */
{