In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/a33a98cff0201570b461d59ea63f94a94f710e45?hp=f7675015b1fdb2eee619d34c20a279db07dcf844>

- Log -----------------------------------------------------------------
commit a33a98cff0201570b461d59ea63f94a94f710e45
Author: David Mitchell <da...@iabyn.com>
Date:   Mon Feb 19 22:50:59 2018 +0000

    Storable: recurse.t: use note() rather than diag()
    
    diag() goes to STDERR and should only be used when a test fails and extra
    diagnostic info should be output.

-----------------------------------------------------------------------

Summary of changes:
 dist/Storable/t/recurse.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dist/Storable/t/recurse.t b/dist/Storable/t/recurse.t
index bfa6e0fb41..fa8be0b374 100644
--- a/dist/Storable/t/recurse.t
+++ b/dist/Storable/t/recurse.t
@@ -345,7 +345,7 @@ sub OVERFLOW () { 35000 }
 eval {
     my $t;
     $t = [$t] for 1 .. MAX_DEPTH*2;
-    diag 'trying catching recursive aref stack overflow';
+    note 'trying catching recursive aref stack overflow';
     dclone $t;
 };
 like $@, qr/Max\. recursion depth with nested structures exceeded/,
@@ -360,7 +360,7 @@ else {
         my $t;
         # 35.000 will cause appveyor 64bit windows to fail earlier
         $t = {1=>$t} for 1 .. MAX_DEPTH * 2;
-        diag 'trying catching recursive href stack overflow';
+        note 'trying catching recursive href stack overflow';
         dclone $t;
     };
     like $@, qr/Max\. recursion depth with nested structures exceeded/,

-- 
Perl5 Master Repository

Reply via email to