From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 19 Dec 2001 11:02:27 +0000 (+0000)
Subject: alarm.t with -Uuseperlio fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dd95eb270db2cdad9a8acda96ac3a3aab8775c2;p=p5sagit%2Fp5-mst-13.2.git

alarm.t with -Uuseperlio fix
 - SA_RESTART should only be function of PERL_OLD_SIGNALS
   not USE_PERLIO

p4raw-id: //depot/perlio@13796
---

diff --git a/util.c b/util.c
index ed3d948..89c39fa 100644
--- a/util.c
+++ b/util.c
@@ -2255,7 +2255,7 @@ Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
     sigemptyset(&act.sa_mask);
     act.sa_flags = 0;
 #ifdef SA_RESTART
-#if !defined(USE_PERLIO) || defined(PERL_OLD_SIGNALS)
+#if defined(PERL_OLD_SIGNALS)
     act.sa_flags |= SA_RESTART;	/* SVR4, 4.3+BSD */
 #endif
 #endif
@@ -2289,7 +2289,7 @@ Perl_rsignal_save(pTHX_ int signo, Sighandler_t handler, Sigsave_t *save)
     sigemptyset(&act.sa_mask);
     act.sa_flags = 0;
 #ifdef SA_RESTART
-#if !defined(USE_PERLIO) || defined(PERL_OLD_SIGNALS)
+#if defined(PERL_OLD_SIGNALS)
     act.sa_flags |= SA_RESTART;	/* SVR4, 4.3+BSD */
 #endif
 #endif