diff options
author | Yves Orton <demerphq@gmail.com> | 2022-04-17 13:23:32 +0200 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-04-19 05:41:19 -0600 |
commit | 49c75d192a739f7e5235bb75b5b19226007a4792 (patch) | |
tree | cafa619bd8b1e53dcb56949f4b1105656b2945e5 /regen | |
parent | 2eee774e4289a5e079b75e495d446a29c74a79d1 (diff) | |
download | perl-49c75d192a739f7e5235bb75b5b19226007a4792.tar.gz |
regen/mph.pl - change fnv1a_32() to _fnv1a_32() as it is not public
This function is not part of the "public" API for this script/package
and might be removed in the future if we needed to, so mark it as
private with a leading underscore.
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mph.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen/mph.pl b/regen/mph.pl index a65fa7b470..4fabaa81f0 100644 --- a/regen/mph.pl +++ b/regen/mph.pl @@ -48,7 +48,7 @@ my $IS_32BIT= !eval { pack "Q", 1 }; # That then gives us the bucket which contains the key data we need to # match for a valid key. -sub fnv1a_32 { +sub _fnv1a_32 { my ($key, $seed)= @_; use integer; @@ -90,7 +90,7 @@ sub build_perfect_hash { my %key_buckets; my %shifted; foreach my $key (sort keys %$source_hash) { - my $h= fnv1a_32($key, $seed1); + my $h= _fnv1a_32($key, $seed1); next SEED1 if exists $hash_to_key{$h}; next SEED1 if $shifted{ ($h >> $RSHIFT) & $MASK }++; $hash_to_key{$h}= $key; |