From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Jun 2001 12:21:53 +0000 (+0000)
Subject: In UTS do signal(SIGFPE, SIG_IGN) in PERL_SYS_INIT().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=615efce3a9927f8df25cdb62183cb5cf2bc86c03;p=p5sagit%2Fp5-mst-13.2.git

In UTS do signal(SIGFPE, SIG_IGN) in PERL_SYS_INIT().

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

diff --git a/unixish.h b/unixish.h
index f6923b7..a7e9a08 100644
--- a/unixish.h
+++ b/unixish.h
@@ -129,7 +129,11 @@
 #  ifdef POSIX_BC
 #    define PERL_SYS_INIT(c,v)	sigignore(SIGFPE); MALLOC_INIT
 #  else
-#    define PERL_SYS_INIT(c,v) MALLOC_INIT
+#    ifdef UTS
+#      define PERL_SYS_INIT(c,v)	signal(SIGFPE, SIG_IGN); MALLOC_INIT
+#    else
+#      define PERL_SYS_INIT(c,v) MALLOC_INIT
+#    endif
 #  endif
 #endif
 #endif