require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&UHA_MSCP_MAX)) {
    sub UHA_MSCP_MAX () {	32;}
}
unless(defined(&MSCP_HASH_SIZE)) {
    sub MSCP_HASH_SIZE () {	32;}
}
unless(defined(&MSCP_HASH_SHIFT)) {
    sub MSCP_HASH_SHIFT () {	9;}
}
unless(defined(&MSCP_HASH)) {
    sub MSCP_HASH {
	my($x) = @_;
	eval q((((($x))>> &MSCP_HASH_SHIFT) & ( &MSCP_HASH_SIZE - 1)));
    }
}
1;
