require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_RPC_SVC_SOC_H)) {
    eval 'sub _RPC_SVC_SOC_H () {1;}' unless defined(&_RPC_SVC_SOC_H);
    require 'sys/cdefs.ph';
    eval 'sub svc_getcaller {
        my($x) = @_;
	    eval q((($x)-> &xp_raddr));
    }' unless defined(&svc_getcaller);
}
1;
