config root man

Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/sys/

FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64
Upload File :
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/sys/un.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_SYS_UN_H_)) {
    eval 'sub _SYS_UN_H_ () {1;}' unless defined(&_SYS_UN_H_);
    require 'sys/cdefs.ph';
    require 'sys/_types.ph';
    unless(defined(&_SA_FAMILY_T_DECLARED)) {
	eval 'sub _SA_FAMILY_T_DECLARED () {1;}' unless defined(&_SA_FAMILY_T_DECLARED);
    }
    if((defined(&__BSD_VISIBLE) ? &__BSD_VISIBLE : undef)) {
	eval 'sub LOCAL_PEERCRED () {0x1;}' unless defined(&LOCAL_PEERCRED);
	eval 'sub LOCAL_CREDS () {0x2;}' unless defined(&LOCAL_CREDS);
	eval 'sub LOCAL_CONNWAIT () {0x4;}' unless defined(&LOCAL_CONNWAIT);
	unless(defined(&_KERNEL)) {
	    eval 'sub SUN_LEN {
	        my($su) = @_;
    		eval q(($sizeof{($su)} - $sizeof{($su)-> &sun_path} +  &strlen(($su)-> &sun_path)));
	    }' unless defined(&SUN_LEN);
	}
    }
}
1;

Man Man