#! /usr/bin/perl
use strict;
use warnings;
use POSIX;
BEGIN { eval 'use Glib;1;' or eval 'sub Glib::strsignal { return "?"; }'; }

sub WCOREDUMP($) { return $_[0] & 0x80; }
sub WIFCONTINUED($) { return $_[0]==0xffff; }

my $r=system @ARGV;
$r==$? or die;
die "WEXITSTATUS ".WEXITSTATUS($r)."\n" if WIFEXITED $r;
die "WTERMSIG ".WTERMSIG($r)."=".Glib::strsignal(WTERMSIG($r))." WCOREDUMP=".(WCOREDUMP($r) ? "yes" : "no")."\n" if WIFSIGNALED $r;
die "WSTOPSIG ".WSTOPSIG($r)."=".Glib::strsignal(WSTOPSIG($r))."\n" if WIFSTOPPED $r;
die "WIFCONTINUED\n" if WIFCONTINUED $r;
die "? $r\n";