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 949334b..6b8745f 100644 (file)
--- a/t/op/anonsub.t
+++ b/t/op/anonsub.t
@@ -84,3 +84,10 @@ ok 1
 print sub { return "ok 1\n" } -> ();
 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 4.