summaryrefslogtreecommitdiff
path: root/ext/Hash-Util
diff options
context:
space:
mode:
authorSlaven Rezic <slaven@rezic.de>2019-12-29 18:01:24 -0500
committerJames E Keenan <jkeenan@cpan.org>2019-12-30 08:03:31 -0500
commit1328e3b851474d2676d9d652820771d08bdf752f (patch)
tree8d958996dd2edddb4eb2f5e592b2198c501abc5f /ext/Hash-Util
parenta68ea46312935021280f02a7264d25531882473a (diff)
downloadperl-1328e3b851474d2676d9d652820771d08bdf752f.tar.gz
Update documentation for hash_seed()
Update $VERSION. For: https://github.com/Perl/perl5/issues/17399
Diffstat (limited to 'ext/Hash-Util')
-rw-r--r--ext/Hash-Util/lib/Hash/Util.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Hash-Util/lib/Hash/Util.pm b/ext/Hash-Util/lib/Hash/Util.pm
index 1a9e9ac810..4224239d91 100644
--- a/ext/Hash-Util/lib/Hash/Util.pm
+++ b/ext/Hash-Util/lib/Hash/Util.pm
@@ -42,7 +42,7 @@ our @EXPORT_OK = qw(
BEGIN {
# make sure all our XS routines are available early so their prototypes
# are correctly applied in the following code.
- our $VERSION = '0.22';
+ our $VERSION = '0.23';
require XSLoader;
XSLoader::load();
}
@@ -115,7 +115,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_are_randomised = hash_seed() !~ /^\0+$/;
my $int_hash_value = hash_value( 'string' );