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 6624f9c..6b8745f 100644 (file)
--- a/t/op/anonsub.t
+++ b/t/op/anonsub.t
@@ -3,7 +3,6 @@
 chdir 't' if -d 't';
 @INC = '../lib';
 require './test.pl';
-$ENV{PERL5LIB} = "../lib" unless $^O eq 'VMS';
 use strict;
 
 $|=1;
@@ -85,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.