In perl.git, the branch smoke-me/tonyc/127743-cperl-storable-fixes has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/0eb937de163da00a0779e7c6c9674ca479778ca8?hp=9e081404a2589566d90c1c4eea0ad3e47a635165> - Log ----------------------------------------------------------------- commit 0eb937de163da00a0779e7c6c9674ca479778ca8 Author: Tony Cook <t...@develop-help.com> Date: Mon Jan 29 10:41:21 2018 +1100 (perl #127743) be more conservative on the default max recursion limits I'm still seeing failures on a variety of platforms, and these limits are fairly useful unless they prevent these crashes in a large variety of circumstances. ----------------------------------------------------------------------- Summary of changes: dist/Storable/stacksize | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/dist/Storable/stacksize b/dist/Storable/stacksize index b390419b6b..3665d64d03 100644 --- a/dist/Storable/stacksize +++ b/dist/Storable/stacksize @@ -163,6 +163,12 @@ my $max_depth_hash = $n; # instead so a user setting of either variable more closely matches # the limits the use sees. +# be fairly aggressive in trimming this, smoke testing showed several +# 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); + my $stack_reserve = $^O eq "MSWin32" ? 32 : 16; if ($] ge "5.016" && !($^O eq "cygwin" && $ptrsize == 8)) { $max_depth -= $stack_reserve; -- Perl5 Master Repository
