This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make the Storable stacksize messages less scary
authorTony Cook <tony@develop-help.com>
Mon, 19 Feb 2018 23:09:44 +0000 (10:09 +1100)
committerTony Cook <tony@develop-help.com>
Mon, 26 Feb 2018 04:16:05 +0000 (15:16 +1100)
dist/Storable/stacksize

index 394e6aa..a698726 100644 (file)
@@ -103,7 +103,7 @@ sub cmd {
 sub good {
     my $i = shift; # this passed
     my $j = $i + abs(int(($bad - $i) / 2));
-    print "$i passed, try more $j ...\n" unless QUIET;
+    print "Storable: determining recursion limit: $i passed, try more $j ...\n" unless QUIET;
     $good = $i;
     if ($j <= $i) {
         $found++;
@@ -114,7 +114,7 @@ sub good {
 sub bad {
     my $i = shift; # this failed
     my $j = $i - abs(int(($i - $good) / 2));
-    print "$i failed, try less $j ...\n" unless QUIET;
+    print "Storable: determining recursion limit: $i too big, try less $j ...\n" unless QUIET;
     $bad = $i;
     if ($j >= $i) {
         $j = $good;