diff options
author | welch <welch@noemail.net> | 1998-08-04 23:22:31 (GMT) |
---|---|---|
committer | welch <welch@noemail.net> | 1998-08-04 23:22:31 (GMT) |
commit | 94676d0627a7c1db80877e1fa9ce68571ac3c878 (patch) | |
tree | c45924f3060222e87cba3b7aebeb083f1e41342a /unix/tclUnixChan.c | |
parent | 47bdd82fe48da3e1933f508cb0304c74da648b93 (diff) | |
download | tcl-94676d0627a7c1db80877e1fa9ce68571ac3c878.zip tcl-94676d0627a7c1db80877e1fa9ce68571ac3c878.tar.gz tcl-94676d0627a7c1db80877e1fa9ce68571ac3c878.tar.bz2 |
*** empty log message ***
FossilOrigin-Name: a97b9f6ca0cf620d1b00b2ddce538fdb23b6c3bb
Diffstat (limited to 'unix/tclUnixChan.c')
-rw-r--r-- | unix/tclUnixChan.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 52af100..b846169 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -2604,7 +2604,7 @@ TclOpen(path, oflag, mode) { int result; while (1) { - result = open(path, oflag, mode); + result = open(path, oflag, (mode_t)mode); if ((result != -1) || (errno != EINTR)) { return result; } |