diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-12-06 06:23:28 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-06 18:55:47 -0800 |
| commit | 6825610e8c8577939e98cbfff5232e71e5249daa (patch) | |
| tree | 8b85aee7a6289f286a284ee3a153e0146594ff8f | |
| parent | 312159d9d024c19f3b1bb5f09a987d02505616d6 (diff) | |
| download | perl-6825610e8c8577939e98cbfff5232e71e5249daa.tar.gz | |
form_scope.t: Diagnostics for test 13
| -rw-r--r-- | t/comp/form_scope.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/comp/form_scope.t b/t/comp/form_scope.t index 2370a4bb30..a1e44f77ac 100644 --- a/t/comp/form_scope.t +++ b/t/comp/form_scope.t @@ -136,8 +136,8 @@ write; sub _13 { my $x; format STDOUT13 = -@* - formats closing over redefined subs -ref \$x eq 'SCALAR' ? "ok 13" : "not ok 13"; +@* - formats closing over redefined subs (got @*) +ref \$x eq 'SCALAR' ? "ok 13" : "not ok 13", ref \$x; . } undef &_13; |