From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 18 Jul 2002 18:23:35 +0000 (+0000)
Subject: exclude windows from change#17569 since it "breaks" pseudo-forked
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39f1703b298e7cfad95b26600223fa7595098e73;p=p5sagit%2Fp5-mst-13.2.git

exclude windows from change#17569 since it "breaks" pseudo-forked
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
---

diff --git a/util.c b/util.c
index 7355b96..dbee23d 100644
--- 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;