Account for string eval when const-izing sub(){$x}

[perl5.git] / t / op / const-optree.t

diff --git a/t/op/const-optree.t b/t/op/const-optree.t
index 5eec8dd..85885ef 100644 (file)
--- a/t/op/const-optree.t
+++ b/t/op/const-optree.t
@@ -8,7 +8,7 @@ BEGIN {
     require './test.pl';
     @INC = '../lib';
 }
-plan 141;
+plan 156;
 
 # @tests is an array of hash refs, each of which can have various keys:
 #
@@ -298,6 +298,54 @@ push @tests, {
   method      => 0,
 };
 
+# String eval
+push @tests, {
+  nickname    => 'sub () { $x } with eval in scope',
+  generator   => sub {
+    my $outer = 43;
+    my $ret = sub () { $outer };
+    eval '$outer++';
+    $ret;
+  },
+  retval      => 43,
+  same_retval => 0,
+  inlinable   => 1,
+  deprecated  => 1,
+  method      => 0,
+};
+push @tests, {
+  nickname    => 'sub () { $x } with s///ee in scope',
+  generator   => sub {
+    my $outer = 43;
+    my $dummy = '$outer++';
+    my $ret = sub () { $outer };
+    $dummy =~ s//$dummy/ee;
+    $ret;
+  },
+  retval      => 43,
+  same_retval => 0,
+  inlinable   => 1,
+  deprecated  => 1,
+  method      => 0,
+};
+push @tests, {
+  nickname    => 'sub () { $x } with eval not in scope',
+  generator   => sub {
+    my $ret;
+    {
+      my $outer = 43;
+      $ret = sub () { $outer };
+    }
+    eval '';
+    $ret;
+  },
+  retval      => 43,
+  same_retval => 0,
+  inlinable   => 1,
+  deprecated  => 0,
+  method      => 0,
+};
+
 push @tests, {
   nickname    => 'sub () { my $x; state sub z { $x } $outer }',
   generator   => sub {