From: Steffen Ullrich <coyote.frank@gmx.net>
Date: Tue, 26 Feb 2008 19:43:00 +0000 (+0100)
Subject: Re: interrupting system() with signal depends on signal handler
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48dbb59ed9af112b035bdcc063c1471a22ec25a2;p=p5sagit%2Fp5-mst-13.2.git

Re: interrupting system() with signal depends on signal handler
Message-ID:  <47C45DB4.9060306@gmx.net>

p4raw-id: //depot/perl@33408
---

diff --git a/util.c b/util.c
index 36166fb..82f147e 100644
--- a/util.c
+++ b/util.c
@@ -3011,6 +3011,7 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags)
 #endif
     if (result < 0 && errno == EINTR) {
 	PERL_ASYNC_CHECK();
+	errno = EINTR; /* reset in case a signal handler changed $! */
     }
     return result;
 }