Posted to tcl by emiliano at Wed Jun 23 15:42:19 GMT 2021view raw
- Index: unix/tclKqueueNotfy.c
- ==================================================================
- --- unix/tclKqueueNotfy.c
- +++ unix/tclKqueueNotfy.c
- @@ -180,11 +180,14 @@
- * with regular files belonging to tsdPtr.
- */
-
- if (fstat(filePtr->fd, &fdStat) == -1) {
- Tcl_Panic("fstat: %s", strerror(errno));
- - } else if ((fdStat.st_mode & S_IFMT) == S_IFREG) {
- + } else if ((fdStat.st_mode & S_IFMT) == S_IFREG
- + || (fdStat.st_mode & S_IFMT) == S_IFDIR
- + || (fdStat.st_mode & S_IFMT) == S_IFLNK
- + ) {
- switch (op) {
- case EV_ADD:
- if (isNew) {
- LIST_INSERT_HEAD(&tsdPtr->firstReadyFileHandlerPtr, filePtr,
- readyNode);
-
-