config root man

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

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/Block.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_BLOCK_H_)) {
    eval 'sub _BLOCK_H_ () {1;}' unless defined(&_BLOCK_H_);
    if(!defined( &BLOCK_EXPORT)) {
	if(defined( &__cplusplus)) {
	    eval 'sub BLOCK_EXPORT () { &extern "C";}' unless defined(&BLOCK_EXPORT);
	} else {
	    eval 'sub BLOCK_EXPORT () { &extern;}' unless defined(&BLOCK_EXPORT);
	}
    }
    if(defined( &__cplusplus)) {
    }
    if(defined( &__cplusplus)) {
    }
    eval 'sub Block_copy () {(...) (( &__typeof( &__VA_ARGS__)) &_Block_copy(( &const  &void *)( &__VA_ARGS__)));}' unless defined(&Block_copy);
    eval 'sub Block_release () {(...)  &_Block_release(( &const  &void *)( &__VA_ARGS__));}' unless defined(&Block_release);
}
1;

Man Man