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

2 files changed, 11 insertions, 13 deletions

diff --git a/lib/Hash/Util.pm b/lib/Hash/Util.pm
index 8e8c95265c..7c528a2f59 100644
--- a/lib/Hash/Util.pm
+++ b/lib/Hash/Util.pm
@@ -7,7 +7,7 @@ use Carp;
 require Exporter;
 our @ISA        = qw(Exporter);
 our @EXPORT_OK  = qw(lock_keys unlock_keys lock_value unlock_value
-                     lock_hash unlock_hash hash_seed
+                     lock_hash unlock_hash hashes_random
                     );
 our $VERSION    = 0.05;
 
@@ -20,7 +20,7 @@ Hash::Util - A selection of general-utility hash subroutines
   use Hash::Util qw(lock_keys   unlock_keys
                     lock_value  unlock_value
                     lock_hash   unlock_hash
-                    hash_seed);
+                    hashes_random);
 
   %hash = (foo => 42, bar => 23);
   lock_keys(%hash);
@@ -33,7 +33,7 @@ Hash::Util - A selection of general-utility hash subroutines
   lock_hash  (%hash);
   unlock_hash(%hash);
 
-  my $hashes_are_randomised = hash_seed() != 0;
+  my $hashes_random = hashes_random();
 
 =head1 DESCRIPTION
 
@@ -179,18 +179,18 @@ sub unlock_hash (\%) {
 }
 
 
-=item B<hash_seed>
+=item B<hashes_random>
 
-    my $hash_seed = hash_seed();
+    my $hashes_random = hashes_random();
 
-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.
+hashes_random() returns true if Perl hashes are randomised as in Perl
+5.8.1 and later, false if Perl hashes have a predictable order as in
+Perl 5.8.0 and earlier.
 
 =cut
 
-sub hash_seed () {
-    Internals::hash_seed();
+sub hashes_random () {
+    Internals::hashes_random();
 }
 
 =back
diff --git a/lib/Hash/Util.t b/lib/Hash/Util.t
index 7cffcbe47b..512f07c2e6 100644
--- a/lib/Hash/Util.t
+++ b/lib/Hash/Util.t
@@ -6,7 +6,7 @@ BEGIN {
         chdir 't';
     }
 }
-use Test::More tests => 157;
+use Test::More tests => 155;
 use strict;
 
 my @Exported_Funcs;
@@ -274,5 +274,3 @@ like( $@, qr/^Attempt to access disallowed key 'I_DONT_EXIST' in a restricted ha
   }
 }
 
-my $hash_seed = hash_seed();
-ok($hash_seed >= 0, "hash_seed $hash_seed");