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