diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-05-08 15:22:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-05-08 15:22:49 (GMT) |
| commit | 56af8c1770e00895a8862d52563e3942dfb3b2df (patch) | |
| tree | 22622d4db3cbabf4dc2c39d34b27aa053f7bdbf3 /unix/tclUnixFile.c | |
| parent | 97b08c9a24dd40233c45c0637be7370972ec7b0c (diff) | |
| parent | 7f26fedbccc3c9f7908417c0abe1cceae115a237 (diff) | |
| download | tcl-56af8c1770e00895a8862d52563e3942dfb3b2df.zip tcl-56af8c1770e00895a8862d52563e3942dfb3b2df.tar.gz tcl-56af8c1770e00895a8862d52563e3942dfb3b2df.tar.bz2 | |
merge 8.7
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 5f5bfe0..5215bdf 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -310,7 +310,7 @@ TclpMatchInDirectory( return TCL_OK; } - d = opendir(native); /* INTL: Native. */ + d = TclOSopendir(native); /* INTL: Native. */ if (d == NULL) { Tcl_DStringFree(&ds); if (interp != NULL) { @@ -388,7 +388,7 @@ TclpMatchInDirectory( } } - closedir(d); + TclOSclosedir(d); Tcl_DStringFree(&ds); Tcl_DStringFree(&dsOrig); Tcl_DecrRefCount(fileNamePtr); |