FM / sys

/usr/lib64/perl5/sys

Name	Size	Mode	Actions
cdefs.ph	22132	0644	edit dl rm
ioctl.ph	288	0644	edit dl rm
select.ph	2110	0644	edit dl rm
socket.ph	2307	0644	edit dl rm
syscall.ph	249	0644	edit dl rm
syslog.ph	3836	0644	edit dl rm
time.ph	2531	0644	edit dl rm
ttydefaults.ph	2509	0644	edit dl rm
types.ph	4399	0644	edit dl rm
ucontext.ph	3578	0644	edit dl rm
wait.ph	2845	0644	edit dl rm

Edit: /usr/lib64/perl5/sys/select.ph (2110B)

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_SELECT_H)) {
    eval 'sub _SYS_SELECT_H () {1;}' unless defined(&_SYS_SELECT_H);
    require 'features.ph';
    require 'bits/types.ph';
    require 'bits/select.ph';
    require 'bits/types/sigset_t.ph';
    require 'bits/types/time_t.ph';
    require 'bits/types/struct_timeval.ph';
    if(defined(&__USE_XOPEN2K)) {
	require 'bits/types/struct_timespec.ph';
    }
    unless(defined(&__suseconds_t_defined)) {
	eval 'sub __suseconds_t_defined () {1;}' unless defined(&__suseconds_t_defined);
    }
    undef(&__NFDBITS) if defined(&__NFDBITS);
    eval 'sub __NFDBITS () {(8* $sizeof{ &__fd_mask});}' unless defined(&__NFDBITS);
    eval 'sub __FD_ELT {
        my($d) = @_;
	    eval q((($d) /  &__NFDBITS));
    }' unless defined(&__FD_ELT);
    eval 'sub __FD_MASK {
        my($d) = @_;
	    eval q((( &__fd_mask) (1 << (($d) %  &__NFDBITS))));
    }' unless defined(&__FD_MASK);
    if(defined(&__USE_XOPEN)) {
	eval 'sub __FDS_BITS {
	    my($set) = @_;
    	    eval q((($set)-> &fds_bits));
	}' unless defined(&__FDS_BITS);
    } else {
	eval 'sub __FDS_BITS {
	    my($set) = @_;
    	    eval q((($set)-> &__fds_bits));
	}' unless defined(&__FDS_BITS);
    }
    eval 'sub FD_SETSIZE () { &__FD_SETSIZE;}' unless defined(&FD_SETSIZE);
    if(defined(&__USE_MISC)) {
	eval 'sub NFDBITS () { &__NFDBITS;}' unless defined(&NFDBITS);
    }
    eval 'sub FD_SET {
        my($fd, $fdsetp) = @_;
	    eval q( &__FD_SET ($fd, $fdsetp));
    }' unless defined(&FD_SET);
    eval 'sub FD_CLR {
        my($fd, $fdsetp) = @_;
	    eval q( &__FD_CLR ($fd, $fdsetp));
    }' unless defined(&FD_CLR);
    eval 'sub FD_ISSET {
        my($fd, $fdsetp) = @_;
	    eval q( &__FD_ISSET ($fd, $fdsetp));
    }' unless defined(&FD_ISSET);
    eval 'sub FD_ZERO {
        my($fdsetp) = @_;
	    eval q( &__FD_ZERO ($fdsetp));
    }' unless defined(&FD_ZERO);
    if(defined(&__USE_XOPEN2K)) {
    }
    if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : undef) > 0 && defined (&__GNUC__)) {
	require 'bits/select2.ph';
    }
}
1;

cmd: