Edit: /usr/lib64/perl5/bits/waitstatus.ph (2649B)
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
if(!defined (defined(&_SYS_WAIT_H) ? &_SYS_WAIT_H : undef) && !defined (defined(&_STDLIB_H) ? &_STDLIB_H : undef)) {
die("Never include
directly; use instead.");
}
unless(defined(&__WEXITSTATUS)) {
sub __WEXITSTATUS {
my($status) = @_;
eval q(((($status) & 0xff00) >> 8));
}
}
unless(defined(&__WTERMSIG)) {
sub __WTERMSIG {
my($status) = @_;
eval q((($status) & 0x7f));
}
}
unless(defined(&__WSTOPSIG)) {
sub __WSTOPSIG {
my($status) = @_;
eval q( &__WEXITSTATUS($status));
}
}
unless(defined(&__WIFEXITED)) {
sub __WIFEXITED {
my($status) = @_;
eval q(( &__WTERMSIG($status) == 0));
}
}
unless(defined(&__WIFSIGNALED)) {
sub __WIFSIGNALED {
my($status) = @_;
eval q((( ((($status) & 0x7f) + 1) >> 1) > 0));
}
}
unless(defined(&__WIFSTOPPED)) {
sub __WIFSTOPPED {
my($status) = @_;
eval q(((($status) & 0xff) == 0x7f));
}
}
if(defined(&WCONTINUED)) {
eval 'sub __WIFCONTINUED {
my($status) = @_;
eval q((($status) == &__W_CONTINUED));
}' unless defined(&__WIFCONTINUED);
}
unless(defined(&__WCOREDUMP)) {
sub __WCOREDUMP {
my($status) = @_;
eval q((($status) & &__WCOREFLAG));
}
}
unless(defined(&__W_EXITCODE)) {
sub __W_EXITCODE {
my($ret, $sig) = @_;
eval q((($ret) << 8| ($sig)));
}
}
unless(defined(&__W_STOPCODE)) {
sub __W_STOPCODE {
my($sig) = @_;
eval q((($sig) << 8| 0x7f));
}
}
unless(defined(&__W_CONTINUED)) {
sub __W_CONTINUED () { 0xffff;}
}
unless(defined(&__WCOREFLAG)) {
sub __WCOREFLAG () { 0x80;}
}
if(defined(&__USE_BSD)) {
require 'endian.ph';
if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) {
}
if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__BIG_ENDIAN) ? &__BIG_ENDIAN : undef)) {
}
if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) {
}
if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__BIG_ENDIAN) ? &__BIG_ENDIAN : undef)) {
}
eval 'sub w_termsig () { ($__wait_terminated->{__w_termsig});}' unless defined(&w_termsig);
eval 'sub w_coredump () { ($__wait_terminated->{__w_coredump});}' unless defined(&w_coredump);
eval 'sub w_retcode () { ($__wait_terminated->{__w_retcode});}' unless defined(&w_retcode);
eval 'sub w_stopsig () { ($__wait_stopped->{__w_stopsig});}' unless defined(&w_stopsig);
eval 'sub w_stopval () { ($__wait_stopped->{__w_stopval});}' unless defined(&w_stopval);
}
1;