SHA256
1
0
forked from pool/perl
perl/perl-reproducible2.patch
Michael Schröder 081f52543f - update to perl-5.32.0
* new experimental infix "isa" operator
  * support of unicode 13.0
  * chained comparisons capability
- updated patches:
  * perl-HiRes.t-timeout.diff
  * posix-sigaction.patch
  * perl-fix2020.patch
  * perl-reproducible2.patch

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=196
2020-10-27 11:07:45 +00:00

14 lines
659 B
Diff

--- ./dist/Storable/stacksize.orig 2020-06-14 23:01:25.000000000 +0000
+++ ./dist/Storable/stacksize 2020-10-27 10:57:33.147900085 +0000
@@ -164,8 +164,8 @@ my $max_depth_hash = $n;
# be fairly aggressive in trimming this, smoke testing showed
# several apparently random failures here, eg. working in one
# configuration, but not in a very similar configuration.
-$max_depth = int(0.6 * $max_depth);
-$max_depth_hash = int(0.6 * $max_depth_hash);
+$max_depth = int(0.6 * $max_depth) & ~31;
+$max_depth_hash = int(0.6 * $max_depth_hash) & ~31;
my $stack_reserve = $^O eq "MSWin32" ? 32 : 16;
if ($] ge "5.016" && !($^O eq "cygwin" && $ptrsize == 8)) {