FM / bits

/usr/lib64/perl5/bits

Name	Size	Mode	Actions
types/	-	0755	rm
byteswap.ph	1641	0644	edit dl rm
endian.ph	247	0644	edit dl rm
ioctl-types.ph	1764	0644	edit dl rm
ioctls.ph	3827	0644	edit dl rm
long-double.ph	60	0644	edit dl rm
pthreadtypes-arch.ph	3823	0644	edit dl rm
pthreadtypes.ph	492	0644	edit dl rm
select.ph	1389	0644	edit dl rm
select2.ph	490	0644	edit dl rm
sigaction.ph	1720	0644	edit dl rm
sigcontext.ph	889	0644	edit dl rm
sigevent-consts.ph	620	0644	edit dl rm
siginfo-arch.ph	465	0644	edit dl rm
siginfo-consts-arch.ph	207	0644	edit dl rm
siginfo-consts.ph	3615	0644	edit dl rm
signum-generic.ph	2724	0644	edit dl rm
signum.ph	1536	0644	edit dl rm
sigstack.ph	441	0644	edit dl rm
sigthread.ph	385	0644	edit dl rm
sockaddr.ph	507	0644	edit dl rm
socket.ph	15923	0644	edit dl rm
socket2.ph	177	0644	edit dl rm
socket_type.ph	766	0644	edit dl rm
ss_flags.ph	443	0644	edit dl rm
stdint-intn.ph	212	0644	edit dl rm
syscall.ph	77580	0644	edit dl rm
syslog-ldbl.ph	355	0644	edit dl rm
syslog-path.ph	363	0644	edit dl rm
syslog.ph	404	0644	edit dl rm
thread-shared-types.ph	1831	0644	edit dl rm
types.ph	2563	0644	edit dl rm
typesizes.ph	4252	0644	edit dl rm
uintn-identity.ph	631	0644	edit dl rm
waitflags.ph	816	0644	edit dl rm
waitstatus.ph	1573	0644	edit dl rm
wordsize.ph	743	0644	edit dl rm

Edit: /usr/lib64/perl5/bits/waitstatus.ph (1573B)

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

if(!defined (&_SYS_WAIT_H)  && !defined (&_STDLIB_H)) {
    die("Never include <bits/waitstatus.h> directly; use <sys/wait.h> 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));
    }
}
eval 'sub __W_CONTINUED () {0xffff;}' unless defined(&__W_CONTINUED);
eval 'sub __WCOREFLAG () {0x80;}' unless defined(&__WCOREFLAG);
1;

cmd: