diff options
| author | welch <welch> | 1998-08-04 23:22:31 (GMT) |
|---|---|---|
| committer | welch <welch> | 1998-08-04 23:22:31 (GMT) |
| commit | d4f36b089a76103bab4a363f025958bc5f0249ba (patch) | |
| tree | c45924f3060222e87cba3b7aebeb083f1e41342a /unix/tclUnixChan.c | |
| parent | 6f808a629f58f0e34a131e8d70c7ec986a555cfd (diff) | |
| download | tcl-d4f36b089a76103bab4a363f025958bc5f0249ba.zip tcl-d4f36b089a76103bab4a363f025958bc5f0249ba.tar.gz tcl-d4f36b089a76103bab4a363f025958bc5f0249ba.tar.bz2 | |
*** empty log message ***
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; } |