view release on metacpan or  search on metacpan

Wait3.xs  view on Meta::CPAN

#include <sys/wait.h>
#include <sys/resource.h>

MODULE = Proc::Wait3		PACKAGE = Proc::Wait3		

PROTOTYPES: DISABLE

void
wait3(block)
  int block
  PPCODE:
    int stat;
    struct rusage r;
    pid_t pid;
    pid = wait3(&stat, block ? 0 : WNOHANG, &r);
    if (pid > 0)
    {
	EXTEND(sp, 18);
        PUSHs(sv_2mortal(newSViv(pid)));
        PUSHs(sv_2mortal(newSViv(stat)));
        PUSHs(sv_2mortal(newSVnv(r.ru_utime.tv_sec