fix /test_bootstrap.t under -DPERL_NO_COW

[perl5.git] / t / op / anonsub.t

diff --git a/t/op/anonsub.t b/t/op/anonsub.t
index b83e4af..6b8745f 100644 (file)
--- 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.