diff options
| author | Len Johnson <lenjay@ibm.net> | 1997-09-05 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +0000 |
| commit | 60e4866f7c7e55b0493d5acd331eeebe57a211a8 (patch) | |
| tree | b91b0eabcd4a7b08a555bad0efff68d0a60b47c8 | |
| parent | 4dee08ee8c3e1b614d202f27d0d361c6e5ada9dd (diff) | |
| download | perl-60e4866f7c7e55b0493d5acd331eeebe57a211a8.tar.gz | |
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>
| -rw-r--r-- | miniperlmain.c | 4 | ||||
| -rw-r--r-- | unixish.h | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 680b04284a..402f2ef065 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 @@ -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" |