bin/whyexit

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use POSIX;
   5 BEGIN { eval 'use Glib;1;' or eval 'sub Glib::strsignal { return "?"; }'; }
   6
   7 sub WCOREDUMP($) { return $_[0] & 0x80; }
   8 sub WIFCONTINUED($) { return $_[0]==0xffff; }
   9
  10 my $r=system @ARGV;
  11 $r==$? or die;
  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;
  16 die "? $r\n";