diff options
| -rw-r--r-- | t/op/anonsub.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/anonsub.t b/t/op/anonsub.t index b83e4afe6d..6b8745f4e4 100644 --- a/t/op/anonsub.t +++ b/t/op/anonsub.t @@ -86,7 +86,8 @@ EXPECT ok 1 ######## # [perl #71154] undef &$code makes $code->() die with: Not a CODE reference +sub __ANON__ { print "42\n" } undef &{$x=sub{}}; $x->(); EXPECT -Undefined subroutine called at - line 3. +Undefined subroutine called at - line 4. |