In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/72196ef94b98987bb277d8bf6db6efaacd624c3c?hp=d36adde059ed1c4f7af210b4f9fc3a7bd2d7d343>
- Log -----------------------------------------------------------------
commit 72196ef94b98987bb277d8bf6db6efaacd624c3c
Author: Yves Orton <demer...@gmail.com>
Date: Mon Jul 2 15:46:54 2018 +0200
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
-----------------------------------------------------------------------
Summary of changes:
regen/mph.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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);
--
Perl5 Master Repository
