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 (file)
--- 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