X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1008bb63303d54d6d4b07526487d1752ee8cb755..fca7221246069070a65ab8fbc4fa10405266be20:/t/op/closure.t

diff --git a/t/op/closure.t b/t/op/closure.t
index 7846b37..322b592 100644
--- a/t/op/closure.t
+++ b/t/op/closure.t
@@ -683,4 +683,23 @@ BEGIN {
   is($blonk_was_called, 1, 'RT #63540');
 }
 
+# test PL_cv_has_eval.  Any anon sub that could conceivably contain an
+# eval, should be marked as cloneable
+
+{
+
+    my @s;
+    push @s, sub {  eval '1' } for 1,2;
+    isnt($s[0], $s[1], "cloneable with eval");
+    @s = ();
+    push @s, sub { use re 'eval'; my $x; s/$x/1/; } for 1,2;
+    isnt($s[0], $s[1], "cloneable with use re eval");
+    @s = ();
+    push @s, sub { s/1/1/ee; } for 1,2;
+    isnt($s[0], $s[1], "cloneable with //ee");
+}
+
+
+
+
 done_testing();