require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&UNP_FEIDS)) {
    sub UNP_FEIDS () {	1;}
}
unless(defined(&UNP_FEIDSBIND)) {
    sub UNP_FEIDSBIND () {	2;}
}
unless(defined(&sotounpcb)) {
    sub sotounpcb {
	my($so) = @_;
	eval q(((($so)-> &so_pcb)));
    }
}
1;
