diff options
| author | Yves Orton <demerphq@gmail.com> | 2018-07-02 15:46:54 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2018-07-02 15:46:54 +0200 |
| commit | 72196ef94b98987bb277d8bf6db6efaacd624c3c (patch) | |
| tree | 3603ff8760a8dbb8ce85ab8e32bbc9a78064f73f /regen/mph.pl | |
| parent | d36adde059ed1c4f7af210b4f9fc3a7bd2d7d343 (diff) | |
| download | perl-72196ef94b98987bb277d8bf6db6efaacd624c3c.tar.gz | |
fix issue in regen/mph under 32 bit builds
the multiplication overflows so perl "helpfully" convers to a float,
which then makes things go horribly horribly wrong. `use integer` to the rescue
Diffstat (limited to 'regen/mph.pl')
| -rw-r--r-- | regen/mph.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/mph.pl b/regen/mph.pl index 93286b9e9f..06d2ccf471 100644 --- a/regen/mph.pl +++ b/regen/mph.pl @@ -11,7 +11,7 @@ my $FNV_CONST= 16777619; sub _fnv { my ($key, $seed)= @_; - + use integer; my $hash = 0+$seed; foreach my $char (split //, $key) { $hash = $hash ^ ord($char); |