require '_h2ph_pre.ph';

unless(defined(&_SHA1_H)) {
    eval 'sub _SHA1_H () {1;}' unless defined(&_SHA1_H);
    eval 'sub SHA1_DIGESTSIZE () {20;}' unless defined(&SHA1_DIGESTSIZE);
    eval 'sub SHA1_BLOCKSIZE () {64;}' unless defined(&SHA1_BLOCKSIZE);
    eval 'sub HTONDIGEST {
        local($x) = @_;
	    eval q({ $x->[0] =  &htonl($x->[0]); $x->[1] =  &htonl($x->[1]); $x->[2] =  &htonl($x->[2]); $x->[3] =  &htonl($x->[3]); $x->[4] =  &htonl($x->[4]); });
    }' unless defined(&HTONDIGEST);
    eval 'sub NTOHDIGEST {
        local($x) = @_;
	    eval q({ $x->[0] =  &ntohl($x->[0]); $x->[1] =  &ntohl($x->[1]); $x->[2] =  &ntohl($x->[2]); $x->[3] =  &ntohl($x->[3]); $x->[4] =  &ntohl($x->[4]); });
    }' unless defined(&NTOHDIGEST);
}
1;
