Re: native exit codes 512 and 2304

in reply to native exit codes 512 and 2304

Decode these using the proper definitions from POSIX:

use POSIX qw(:sys_wait_h);

decode_status(512);
decode_status(2304);

sub decode_status
{
    my ($rc) = @_;
    print "$rc: normal exit with code ". WEXITSTATUS($rc)."\n" if WIFE
+XITED(  $rc);
    print "$rc: terminated with signal ".WTERMSIG(   $rc)."\n" if WIFS
+IGNALED($rc);
    print "$rc: stopped with signal ".   WSTOPSIG(   $rc)."\n" if WIFS
+TOPPED( $rc);
}
__END__
512: normal exit with code 2
2304: normal exit with code 9
[download]

In Section Seekers of Perl Wisdom