XS(XS_Internals_hv_clear_placehold);
XS(XS_PerlIO_get_layers);
XS(XS_Regexp_DESTROY);
-XS(XS_Internals_hashes_random);
+XS(XS_Internals_hash_seed);
void
Perl_boot_core_UNIVERSAL(pTHX)
newXSproto("PerlIO::get_layers",
XS_PerlIO_get_layers, file, "*;@");
newXS("Regexp::DESTROY", XS_Regexp_DESTROY, file);
- newXSproto("Internals::hashes_random",XS_Internals_hashes_random, file, "");
+ newXSproto("Internals::hash_seed",XS_Internals_hash_seed, file, "");
}
XSRETURN(0);
}
-XS(XS_Internals_hashes_random)
+XS(XS_Internals_hash_seed)
{
- dXSARGS;
- XSRETURN_IV(PL_hash_seed ? 1 : 0);
+ /* Using dXSARGS would also have dITEM and dSP,
+ * which define 2 unused local variables. */
+ dMARK; dAX;
+ XSRETURN_UV(PERL_HASH_SEED);
}