X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHash%2FUtil.pm;h=3d65ee0b11604a3c5fa757242096a94bffd0c88c;hb=f1317c8d183c687b884dabebf7d01723441851a4;hp=8e8c95265c2f0168d37642a3f59055b39cdaa75c;hpb=9a7034eb2c2d4f0ed795b3c479d700ded086d7e8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Hash/Util.pm b/lib/Hash/Util.pm
index 8e8c952..3d65ee0 100644
--- a/lib/Hash/Util.pm
+++ b/lib/Hash/Util.pm
@@ -187,10 +187,16 @@ hash_seed() returns the seed number used to randomise hash ordering.
 Zero means the "traditional" random hash ordering, non-zero means the
 new even more random hash ordering introduced in Perl 5.8.1.
 
+B<Note that the hash seed is sensitive information>: by knowing it one
+can craft a denial-of-service attack against Perl code, even remotely,
+see L<perlsec/"Algorithmic Complexity Attacks"> for more information.
+B<Do not disclose the hash seed> to people who don't need to know it.
+See also L<perlrun/PERL_HASH_SEED_DEBUG>.
+
 =cut
 
 sub hash_seed () {
-    Internals::hash_seed();
+    Internals::rehash_seed();
 }
 
 =back