From: Len Johnson <lenjay@ibm.net>
Date: Fri, 5 Sep 1997 00:00:00 +0000 (+0000)
Subject: Minor changes to ease port to MVS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60e4866f7c7e55b0493d5acd331eeebe57a211a8;p=p5sagit%2Fp5-mst-13.2.git

Minor changes to ease port to MVS

private-msgid: 199709162058.NAA00952@mailsun2.us.oracle.com
Credited: Bud Huff <SMTP%"BAHUFF@us.oracle.com" >
Credited: John Pfuntner <SMTP%"pfuntner@vnet.ibm.com" >
Credited: Peter Prymmer <pvhp@forte.com>
---

diff --git a/miniperlmain.c b/miniperlmain.c
index 680b042..402f2ef 100644
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -2,6 +2,10 @@
  * "The Road goes ever on and on, down from the door where it began."
  */
 
+#ifdef OEMVS
+#pragma runopts(HEAP(1M,32K,ANYWHERE,KEEP,8K,4K))
+#endif
+
 #ifdef __cplusplus
 extern "C" {
 #endif
diff --git a/unixish.h b/unixish.h
index 4968a38..a13e2bd 100644
--- a/unixish.h
+++ b/unixish.h
@@ -106,12 +106,18 @@
 #define Fflush(fp)         fflush(fp)
 #define Mkdir(path,mode)   mkdir((path),(mode))
 
+#ifndef PERL_SYS_INIT
 #ifdef PERL_SCO5
+/* this should be set in a hint file, not here */
 #  define PERL_SYS_INIT(c,v)	fpsetmask(0)
 #else
 #  define PERL_SYS_INIT(c,v)
 #endif
+#endif
+
+#ifndef PERL_SYS_TERM
 #define PERL_SYS_TERM()
+#endif
 
 #define BIT_BUCKET "/dev/null"