In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/38fe8a04ecde2def590d5181d73afe17f06f9789?hp=970ebd6f29eaeb8f281ee05c3de6b064ac181673>
- Log ----------------------------------------------------------------- commit 38fe8a04ecde2def590d5181d73afe17f06f9789 Author: Father Chrysostomos <[email protected]> Date: Thu May 19 06:08:12 2016 -0700 [perl #123367] Test my sub defined in BEGIN{eval} This accidentally started working in v5.21.6-197-g0f94cb1. M t/op/lexsub.t commit 1d6c37fc2b29d8f450caa739507858741a5ae58b Author: Father Chrysostomos <[email protected]> Date: Wed May 18 21:42:03 2016 -0700 Allow require_error.t be run from the top level M t/op/require_errors.t ----------------------------------------------------------------------- Summary of changes: t/op/lexsub.t | 6 +++++- t/op/require_errors.t | 1 + 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/t/op/lexsub.t b/t/op/lexsub.t index de4c074..19a99fe 100644 --- 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 "..." }'; } { diff --git a/t/op/require_errors.t b/t/op/require_errors.t index 2215b40..f2f98b0 100644 --- a/t/op/require_errors.t +++ b/t/op/require_errors.t @@ -3,6 +3,7 @@ BEGIN { chdir 't' if -d 't'; require './test.pl'; + @INC="../lib"; } use strict; -- Perl5 Master Repository
