diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 12:34:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 12:34:37 +0000 |
| commit | c910b28aed05bec7c1e3d60658ca4a270bf0077d (patch) | |
| tree | 349bd3669e0c08e8d8c94224683f84d343229b05 /universal.c | |
| parent | 108ccc4560b5d414559c30fa02e7c3ad3a9302f1 (diff) | |
| download | perl-c910b28aed05bec7c1e3d60658ca4a270bf0077d.tar.gz | |
Add Hash::Util::hash_seed() which answers among
other things the question whether our hashes are
"randomised". (They always were...)
p4raw-id: //depot/perl@21087
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/universal.c b/universal.c index 6ba5a13785..15c408d301 100644 --- a/universal.c +++ b/universal.c @@ -187,6 +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); void Perl_boot_core_UNIVERSAL(pTHX) @@ -230,6 +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, ""); } @@ -906,3 +908,9 @@ XS(XS_PerlIO_get_layers) XSRETURN(0); } +XS(XS_Internals_hash_seed) +{ + dXSARGS; + XSRETURN_UV(PL_hash_seed); +} + |