diff options
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/Changes | 5 | ||||
| -rw-r--r-- | os2/os2.c | 16 | ||||
| -rw-r--r-- | os2/os2ish.h | 19 |
3 files changed, 24 insertions, 16 deletions
diff --git a/os2/Changes b/os2/Changes index 83af2d8893..902783295f 100644 --- a/os2/Changes +++ b/os2/Changes @@ -122,3 +122,8 @@ after 5.003_08: after 5.003_11: Functions emx_{malloc,realloc,calloc,free} are exported from DLL. get_sysinfo() bugs corrected (flags were not used and wrongly defined). + +after 5.003_20: + _isterm is substituted instead of isatty, s?random instead of srand. + `register' disabled if -DDEBUGGING and not AOUT build: stupid SD386. + 3-argument select() was stomping over memory. @@ -158,22 +158,6 @@ getpriority(int which /* ignored */, int pid) /* spawn */ typedef void (*Sigfunc) _((int)); -static -Sigfunc rsignal(signo,handler) -int signo; -Sigfunc handler; -{ - struct sigaction act,oact; - - act.sa_handler = handler; - sigemptyset(&act.sa_mask); - act.sa_flags = 0; - if (sigaction(signo, &act, &oact) < 0) - return(SIG_ERR); - else - return(oact.sa_handler); -} - static int result(int flag, int pid) { diff --git a/os2/os2ish.h b/os2/os2ish.h index b2e1f66c78..ade419912f 100644 --- a/os2/os2ish.h +++ b/os2/os2ish.h @@ -37,6 +37,18 @@ */ #undef ACME_MESS /**/ +/* ALTERNATE_SHEBANG: + * This symbol, if defined, contains a "magic" string which may be used + * as the first line of a Perl program designed to be executed directly + * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG + * begins with a character other then #, then Perl will only treat + * it as a command line if if finds the string "perl" in the first + * word; otherwise it's treated as the first line of code in the script. + * (IOW, Perl won't hand off to another interpreter via an alternate + * shebang sequence that might be legal Perl code.) + */ +/* #define ALTERNATE_SHEBANG "#!" / **/ + #ifndef SIGABRT # define SIGABRT SIGILL #endif @@ -99,6 +111,8 @@ char *my_tmpnam (char *); #define tmpfile my_tmpfile #define tmpnam my_tmpnam #define isatty _isterm +#define rand random +#define srand srandom /* * fwrite1() should be a routine with the same calling sequence as fwrite(), @@ -155,6 +169,11 @@ void *emx_realloc (void *, size_t); #endif +/* With SD386 it is impossible to debug register variables. */ +#if !defined(PERL_IS_AOUT) && defined(DEBUGGING) && !defined(register) +# define register +#endif + /* Our private OS/2 specific data. */ typedef struct OS2_Perl_data { |