diff options
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/universal.c b/universal.c index dc9e253062..15c408d301 100644 --- a/universal.c +++ b/universal.c @@ -187,7 +187,7 @@ XS(XS_Internals_SvREFCNT); 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) @@ -231,7 +231,7 @@ 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, ""); } @@ -908,9 +908,9 @@ XS(XS_PerlIO_get_layers) XSRETURN(0); } -XS(XS_Internals_hashes_random) +XS(XS_Internals_hash_seed) { dXSARGS; - XSRETURN_IV(PL_hash_seed ? 1 : 0); + XSRETURN_UV(PL_hash_seed); } |