[perl #123367] Test my sub defined in BEGIN{eval}

Father Chrysostomos · Father Chrysostomos · commit 38fe8a04ecde · 2016-05-19T06:10:07.000-07:00
This accidentally started working in v5.21.6-197-g0f94cb1.
diff --git a/t/op/lexsub.t b/t/op/lexsub.t
@@ -7,7 +7,7 @@ BEGIN {
     *bar::is = *is;
     *bar::like = *like;
 }
-plan 151;
+plan 152;
 
 # -------------------- Errors with feature disabled -------------------- #
 
@@ -760,6 +760,10 @@ not_lexical11();
   my sub x;
   eval 'sub x {3}';
   is x, 3, 'my sub defined inside eval';
+
+  my sub z;
+  BEGIN { eval 'sub z {4}' }
+  is z, 4, 'my sub defined in BEGIN { eval "..." }';
 }
 
 {

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@ BEGIN {`
`7`	`7`	`bar::is = is;`
`8`	`8`	`bar::like = like;`
`9`	`9`	`}`
`10`		`-plan 151;`
	`10`	`+plan 152;`
`11`	`11`
`12`	`12`	`# -------------------- Errors with feature disabled -------------------- #`
`13`	`13`
`@@ -760,6 +760,10 @@ not_lexical11();`
`760`	`760`	`my sub x;`
`761`	`761`	`eval 'sub x {3}';`
`762`	`762`	`is x, 3, 'my sub defined inside eval';`
	`763`	`+`
	`764`	`+ my sub z;`
	`765`	`+ BEGIN { eval 'sub z {4}' }`
	`766`	`+ is z, 4, 'my sub defined in BEGIN { eval "..." }';`
`763`	`767`	`}`
`764`	`768`
`765`	`769`	`{`