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/socket.ph (2307B)

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_SOCKET_H)) {
    eval 'sub _SYS_SOCKET_H () {1;}' unless defined(&_SYS_SOCKET_H);
    require 'features.ph';
    require 'bits/types/struct_iovec.ph';
    eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t);
    require 'stddef.ph';
    require 'bits/socket.ph';
    if(defined(&__USE_MISC)) {
	require 'bits/types/struct_osockaddr.ph';
    }
    eval("sub SHUT_RD () { 0; }") unless defined(&SHUT_RD);
    eval("sub SHUT_WR () { 1; }") unless defined(&SHUT_WR);
    eval("sub SHUT_RDWR () { 2; }") unless defined(&SHUT_RDWR);
    if(defined (&__cplusplus) || ! &__GNUC_PREREQ (2, 7) || !defined (&__USE_GNU)) {
	eval 'sub __SOCKADDR_ARG () {\'struct sockaddr\' * &__restrict;}' unless defined(&__SOCKADDR_ARG);
	eval 'sub __CONST_SOCKADDR_ARG () { &const \'struct sockaddr\' *;}' unless defined(&__CONST_SOCKADDR_ARG);
    } else {
	eval 'sub __SOCKADDR_ALLTYPES () { &__SOCKADDR_ONETYPE ( &sockaddr)  &__SOCKADDR_ONETYPE ( &sockaddr_at)  &__SOCKADDR_ONETYPE ( &sockaddr_ax25)  &__SOCKADDR_ONETYPE ( &sockaddr_dl)  &__SOCKADDR_ONETYPE ( &sockaddr_eon)  &__SOCKADDR_ONETYPE ( &sockaddr_in)  &__SOCKADDR_ONETYPE ( &sockaddr_in6)  &__SOCKADDR_ONETYPE ( &sockaddr_inarp)  &__SOCKADDR_ONETYPE ( &sockaddr_ipx)  &__SOCKADDR_ONETYPE ( &sockaddr_iso)  &__SOCKADDR_ONETYPE ( &sockaddr_ns)  &__SOCKADDR_ONETYPE ( &sockaddr_un)  &__SOCKADDR_ONETYPE ( &sockaddr_x25);}' unless defined(&__SOCKADDR_ALLTYPES);
	eval 'sub __SOCKADDR_ONETYPE {
	    my($type) = @_;
    	    eval q(\'struct type\' * &__restrict  &__$type &__;);
	}' unless defined(&__SOCKADDR_ONETYPE);
	undef(&__SOCKADDR_ONETYPE) if defined(&__SOCKADDR_ONETYPE);
	eval 'sub __SOCKADDR_ONETYPE {
	    my($type) = @_;
    	    eval q( &const \'struct type\' * &__restrict  &__$type &__;);
	}' unless defined(&__SOCKADDR_ONETYPE);
	undef(&__SOCKADDR_ONETYPE) if defined(&__SOCKADDR_ONETYPE);
    }
    if(defined(&__USE_GNU)) {
    }
    if(defined(&__USE_GNU)) {
    }
    if(defined(&__USE_GNU)) {
    }
    if(defined(&__USE_GNU)) {
    }
    if(defined(&__USE_XOPEN2K)) {
    }
    if(defined(&__USE_MISC)) {
    }
    if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : undef) > 0 && defined (&__fortify_function)) {
	require 'bits/socket2.ph';
    }
}
1;

require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SOCKET_H)) { eval 'sub _SYS_SOCKET_H () {1;}' unless defined(&_SYS_SOCKET_H); require 'features.ph'; require 'bits/types/struct_iovec.ph'; eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t); require 'stddef.ph'; require 'bits/socket.ph'; if(defined(&__USE_MISC)) { require 'bits/types/struct_osockaddr.ph'; } eval("sub SHUT_RD () { 0; }") unless defined(&SHUT_RD); eval("sub SHUT_WR () { 1; }") unless defined(&SHUT_WR); eval("sub SHUT_RDWR () { 2; }") unless defined(&SHUT_RDWR); if(defined (&__cplusplus) || ! &__GNUC_PREREQ (2, 7) || !defined (&__USE_GNU)) { eval 'sub __SOCKADDR_ARG () {\'struct sockaddr\' * &__restrict;}' unless defined(&__SOCKADDR_ARG); eval 'sub __CONST_SOCKADDR_ARG () { &const \'struct sockaddr\' *;}' unless defined(&__CONST_SOCKADDR_ARG); } else { eval 'sub __SOCKADDR_ALLTYPES () { &__SOCKADDR_ONETYPE ( &sockaddr) &__SOCKADDR_ONETYPE ( &sockaddr_at) &__SOCKADDR_ONETYPE ( &sockaddr_ax25) &__SOCKADDR_ONETYPE ( &sockaddr_dl) &__SOCKADDR_ONETYPE ( &sockaddr_eon) &__SOCKADDR_ONETYPE ( &sockaddr_in) &__SOCKADDR_ONETYPE ( &sockaddr_in6) &__SOCKADDR_ONETYPE ( &sockaddr_inarp) &__SOCKADDR_ONETYPE ( &sockaddr_ipx) &__SOCKADDR_ONETYPE ( &sockaddr_iso) &__SOCKADDR_ONETYPE ( &sockaddr_ns) &__SOCKADDR_ONETYPE ( &sockaddr_un) &__SOCKADDR_ONETYPE ( &sockaddr_x25);}' unless defined(&__SOCKADDR_ALLTYPES); eval 'sub __SOCKADDR_ONETYPE { my($type) = @_; eval q(\'struct type\' * &__restrict &__$type &__;); }' unless defined(&__SOCKADDR_ONETYPE); undef(&__SOCKADDR_ONETYPE) if defined(&__SOCKADDR_ONETYPE); eval 'sub __SOCKADDR_ONETYPE { my($type) = @_; eval q( &const \'struct type\' * &__restrict &__$type &__;); }' unless defined(&__SOCKADDR_ONETYPE); undef(&__SOCKADDR_ONETYPE) if defined(&__SOCKADDR_ONETYPE); } if(defined(&__USE_GNU)) { } if(defined(&__USE_GNU)) { } if(defined(&__USE_GNU)) { } if(defined(&__USE_GNU)) { } if(defined(&__USE_XOPEN2K)) { } if(defined(&__USE_MISC)) { } if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : undef) > 0 && defined (&__fortify_function)) { require 'bits/socket2.ph'; } } 1;