exclude windows from change#17569 since it "breaks" pseudo-forked
Gurusamy Sarathy [Thu, 18 Jul 2002 18:23:35 +0000 (18:23 +0000)]
children from signalling their parent via kill(), and therefore
socketpair.t failed (windows signal emulation should be thread
safe because it is built around a message loop)
p4raw-link: @17569 on //depot/perl: a10b1e109d1f901ff6cb267ca6a30834468b37b7

p4raw-id: //depot/perl@17628

util.c

diff --git a/util.c b/util.c
index 7355b96..dbee23d 100644 (file)
--- a/util.c
+++ b/util.c
@@ -2427,7 +2427,7 @@ Perl_rsignal_restore(pTHX_ int signo, Sigsave_t *save)
 Sighandler_t
 Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
 {
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
     /* only "parent" interpreter can diddle signals */
     if (PL_curinterp != aTHX)
        return SIG_ERR;
@@ -2451,7 +2451,7 @@ Perl_rsignal_state(pTHX_ int signo)
 {
     Sighandler_t oldsig;
 
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
     /* only "parent" interpreter can diddle signals */
     if (PL_curinterp != aTHX)
        return SIG_ERR;
@@ -2468,7 +2468,7 @@ Perl_rsignal_state(pTHX_ int signo)
 int
 Perl_rsignal_save(pTHX_ int signo, Sighandler_t handler, Sigsave_t *save)
 {
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
     /* only "parent" interpreter can diddle signals */
     if (PL_curinterp != aTHX)
        return -1;
@@ -2480,7 +2480,7 @@ Perl_rsignal_save(pTHX_ int signo, Sighandler_t handler, Sigsave_t *save)
 int
 Perl_rsignal_restore(pTHX_ int signo, Sigsave_t *save)
 {
-#ifdef USE_ITHREADS
+#if defined(USE_ITHREADS) && !defined(WIN32)
     /* only "parent" interpreter can diddle signals */
     if (PL_curinterp != aTHX)
        return -1;