Bug #126285 for Babble: Regexp related test failures

The bug seems to be in perl itself, due to the changes in the way regexes handle closures (Aaron says so). Attached a patch (essentially, stringify the whole new grammar before recompiling it). The patch also fixes a "unescaped left brace" in a test.

diff --git c/lib/Babble/Grammar.pm w/lib/Babble/Grammar.pm index a31aa5d..4972719 100644 --- c/lib/Babble/Grammar.pm +++ w/lib/Babble/Grammar.pm @@ -32,7 +32,9 @@ lazy grammar_regexp => sub { return $base_re unless @parts; my $define_block = join "\n", '(?(DEFINE)', '', @parts, '', ')'; use re 'eval'; - return qr{${define_block} ${base_re}}x; + my $r = "${define_block} ${base_re}"; + my $x = qr{$r}x; + return $x; }; sub _rule_name { diff --git c/lib/Babble/Match.pm w/lib/Babble/Match.pm index c87b690..7ffdf46 100644 --- c/lib/Babble/Match.pm +++ w/lib/Babble/Match.pm @@ -82,7 +82,7 @@ sub match_positions_of { our @F; my $wrapped = $self->grammar->clone->extend_rule( $of => sub { '('.$_[0].')'.'(?{ push @Babble::Match::F, [ pos() - length($^N), length($^N) ] })' } - )->grammar_regexp; + )->grammar_regexp; my @found = do { local @F; local $_ = $self->text; diff --git c/t/plugin-state.t w/t/plugin-state.t index 5d8c20d..afcacf0 100644 --- c/t/plugin-state.t +++ w/t/plugin-state.t @@ -16,7 +16,7 @@ my @cand = ( push @cand, map { (my $orig = $_->[0]) =~ s/^my \$foo = sub/sub foo/; - s/^my \$foo = do //, s/sub {/sub foo {/ for (my $expect = $_->[1]); + s/^my \$foo = do //, s/sub \{/sub foo {/ for (my $expect = $_->[1]); [ $orig, $expect ], } @cand;