diff options
| author | David Mitchell <davem@iabyn.com> | 2018-02-19 22:50:59 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2018-02-19 22:50:59 +0000 |
| commit | a33a98cff0201570b461d59ea63f94a94f710e45 (patch) | |
| tree | a4ad1e9ecd168dfe206d23013d3890133e19f44a | |
| parent | f7675015b1fdb2eee619d34c20a279db07dcf844 (diff) | |
| download | perl-a33a98cff0201570b461d59ea63f94a94f710e45.tar.gz | |
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.
| -rw-r--r-- | dist/Storable/t/recurse.t | 4 |
1 files 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/, |