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

  1. Index: unix/tclKqueueNotfy.c
  2. ==================================================================
  3. --- unix/tclKqueueNotfy.c
  4. +++ unix/tclKqueueNotfy.c
  5. @@ -180,11 +180,14 @@
  6. * with regular files belonging to tsdPtr.
  7. */
  8.  
  9. if (fstat(filePtr->fd, &fdStat) == -1) {
  10. Tcl_Panic("fstat: %s", strerror(errno));
  11. - } else if ((fdStat.st_mode & S_IFMT) == S_IFREG) {
  12. + } else if ((fdStat.st_mode & S_IFMT) == S_IFREG
  13. + || (fdStat.st_mode & S_IFMT) == S_IFDIR
  14. + || (fdStat.st_mode & S_IFMT) == S_IFLNK
  15. + ) {
  16. switch (op) {
  17. case EV_ADD:
  18. if (isNew) {
  19. LIST_INSERT_HEAD(&tsdPtr->firstReadyFileHandlerPtr, filePtr,
  20. readyNode);
  21.  
  22.