Get t/uni/cache.t working under minitest

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

diff --git a/t/op/anonsub.t b/t/op/anonsub.t
index 949334b..ceb8d09 100644 (file)
--- a/t/op/anonsub.t
+++ b/t/op/anonsub.t
@@ -84,3 +84,17 @@ 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.
+########
+# NAME anon constant clobbering __ANON__
+sub __ANON__ { "42\n" }
+print __ANON__;
+sub(){3};
+EXPECT
+42