| Commit | Line | Data |
|---|
| 82835e01 |
1 | *** miniperlmain.c~ Sat Nov 18 12:48:10 1995 |
| 2 | --- miniperlmain.c Sun Nov 26 12:44:30 1995 |
| 3 | *************** |
| 4 | *** 31,43 **** |
| 5 | { |
| 6 | int exitstatus; |
| 7 | |
| 8 | ! #ifdef OS2 |
| 9 | ! _response(&argc, &argv); |
| 10 | ! _wildcard(&argc, &argv); |
| 11 | ! #endif |
| 12 | ! |
| 13 | ! #ifdef VMS |
| 14 | ! getredirection(&argc,&argv); |
| 15 | #endif |
| 16 | |
| 17 | #if defined(HAS_SETLOCALE) && defined(LC_CTYPE) |
| 18 | --- 31,38 ---- |
| 19 | { |
| 20 | int exitstatus; |
| 21 | |
| 22 | ! #ifdef PERL_SYS_INIT |
| 23 | ! PERL_SYS_INIT(&argc, &argv); |
| 24 | #endif |
| 25 | |
| 26 | #if defined(HAS_SETLOCALE) && defined(LC_CTYPE) |
| 27 | *** os2/os2ish.h~ Tue Nov 14 08:07:32 1995 |
| 28 | --- os2/os2ish.h Sun Nov 26 13:04:54 1995 |
| 29 | *************** |
| 30 | *** 23,28 **** |
| 31 | --- 23,33 ---- |
| 32 | #endif |
| 33 | #define ABORT() kill(getpid(),SIGABRT); |
| 34 | |
| 35 | + #define PERL_SYS_INIT(argcp, argvp) do { \ |
| 36 | + _response(argcp, argvp); \ |
| 37 | + _wildcard(argcp, argvp); } while (0) |
| 38 | + |
| 39 | + |
| 40 | /* |
| 41 | * fwrite1() should be a routine with the same calling sequence as fwrite(), |
| 42 | * but which outputs all of the bytes requested as a single stream (unlike |
| 43 | *** vms/vmsish.h~ Wed Nov 15 19:07:24 1995 |
| 44 | --- vms/vmsish.h Sun Nov 26 12:46:34 1995 |
| 45 | *************** |
| 46 | *** 86,91 **** |
| 47 | --- 86,94 ---- |
| 48 | */ |
| 49 | #define fork vfork |
| 50 | |
| 51 | + #define PERL_SYS_INIT(argcp, argvp) \ |
| 52 | + getredirection(argcp, argvp) |
| 53 | + |
| 54 | /* |
| 55 | * fwrite1() should be a routine with the same calling sequence as fwrite(), |
| 56 | * but which outputs all of the bytes requested as a single stream (unlike |
projects / p5sagit/p5-mst-13.2.git / blame