os2/diff.init

   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