doc f7abe7

[p5sagit/p5-mst-13.2.git] / doio.c

diff --git a/doio.c b/doio.c
index eba7b54..98861af 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1740,6 +1740,7 @@ nothing in the core.
                    }
                }
            }
+           PERL_ASYNC_CHECK();
            break;
        }
 #endif
@@ -1770,6 +1771,7 @@ nothing in the core.
                    tot--;
            }
        }
+       PERL_ASYNC_CHECK();
        break;
 #endif
     case OP_UNLINK: