alarm.t with -Uuseperlio fix
Nick Ing-Simmons [Wed, 19 Dec 2001 11:02:27 +0000 (11:02 +0000)]
 - SA_RESTART should only be function of PERL_OLD_SIGNALS
   not USE_PERLIO

p4raw-id: //depot/perlio@13796

util.c

diff --git a/util.c b/util.c
index ed3d948..89c39fa 100644 (file)
--- 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