"Safe" signals - trial implementation.

 gv.c tweaked to zero PL_sig_pend array
 perlio.c tweaked to PERL_ASYNC_CHECK() on EINTR
 util.c tweaked to not set SA_RESTART to give perlio.c a chance.
Odd thing is that it "works" with PERLIO=stdio as well (linux).

p4raw-id: //depot/perlio@8467

1 files changed, 3 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 72efa366c3..61af3760f2 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1279,6 +1279,7 @@ PerlIOUnix_read(PerlIO *f, void *vbuf, Size_t count)
       PerlIOBase(f)->flags |= PERLIO_F_EOF;
      return len;
     }
+   PERL_ASYNC_CHECK();
   }
 }
 
@@ -1296,6 +1297,7 @@ PerlIOUnix_write(PerlIO *f, const void *vbuf, Size_t count)
       PerlIOBase(f)->flags |= PERLIO_F_ERROR;
      return len;
     }
+   PERL_ASYNC_CHECK();
   }
 }
 
@@ -1329,6 +1331,7 @@ PerlIOUnix_close(PerlIO *f)
      code = -1;
      break;
     }
+   PERL_ASYNC_CHECK();
   }
  if (code == 0)
   {