Posted to tcl by emiliano at Wed Jun 23 15:42:19 GMT 2021view pretty

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);