beos/beos.c

   1 #undef waitpid
   2
   3 #include <sys/wait.h>
   4
   5 /* In BeOS 5.0 the waitpid() seems to misbehave in that the status
   6  * is _not_ shifted left by eight (multiplied by 256), as it is in
   7  * POSIX/UNIX.  To undo the surpise effect to the rest of Perl we
   8  * need this wrapper.  (The rest of BeOS might be surprised because
   9  * of this, though.) */
  10
  11 pid_t beos_waitpid(pid_t process_id, int *status_location, int options) {
  12     pid_t got = waitpid(procedd_is, status_location, options);
  13     if (status_location)
  14         *status_location <<= 8;
  15     return got;
  16 }