require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&sizeofa)) {
    sub sizeofa {
	my($_a) = @_;
	eval q(($sizeof{$_a} / $sizeof{($_a)[0]}));
    }
}
unless(defined(&DEVNAME)) {
    sub DEVNAME {
	my($_sc) = @_;
	eval q((($_sc)-> ($sc_dev->{dv_xname})));
    }
}
1;
