5 BEGIN { eval 'use Glib;1;' or eval 'sub Glib::strsignal { return "?"; }'; }
7 sub WCOREDUMP($) { return $_[0] & 0x80; }
8 sub WIFCONTINUED($) { return $_[0]==0xffff; }
12 die "WEXITSTATUS ".WEXITSTATUS($r)."\n" if WIFEXITED $r;
13 die "WTERMSIG ".WTERMSIG($r)."=".Glib::strsignal(WTERMSIG($r))." WCOREDUMP=".(WCOREDUMP($r) ? "yes" : "no")."\n" if WIFSIGNALED $r;
14 die "WSTOPSIG ".WSTOPSIG($r)."=".Glib::strsignal(WSTOPSIG($r))."\n" if WIFSTOPPED $r;
15 die "WIFCONTINUED\n" if WIFCONTINUED $r;