diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 17:58:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 17:58:19 +0000 |
| commit | e67b9e528630fa842f677b067da8b404fc3914ab (patch) | |
| tree | 61e3c724e9f6d99a5e24ade80c16d99361aa2abb /universal.c | |
| parent | 6c8f3f7c9e7275f18dac56cdf0b9dc266f2e2190 (diff) | |
| download | perl-e67b9e528630fa842f677b067da8b404fc3914ab.tar.gz | |
Scott A. Crosby believes in not disclosing
any more information than necessary: therefore
instead of hash_seed() we have now hashes_random().
p4raw-id: //depot/perl@21096
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 15c408d301..dc9e253062 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_hash_seed); +XS(XS_Internals_hashes_random); 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::hash_seed",XS_Internals_hash_seed, file, ""); + newXSproto("Internals::hashes_random",XS_Internals_hashes_random, file, ""); } @@ -908,9 +908,9 @@ XS(XS_PerlIO_get_layers) XSRETURN(0); } -XS(XS_Internals_hash_seed) +XS(XS_Internals_hashes_random) { dXSARGS; - XSRETURN_UV(PL_hash_seed); + XSRETURN_IV(PL_hash_seed ? 1 : 0); } |