In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/3c92e13394fced16c55aca22b7557b6baea486e4?hp=950da19151ab0eeaf8415e508fb51c36f2b5d70c>
- Log -----------------------------------------------------------------
commit 3c92e13394fced16c55aca22b7557b6baea486e4
Author: Karl Williamson <k...@cpan.org>
Date: Sun Nov 11 21:54:41 2018 -0700
regcomp.c: Add assertion
-----------------------------------------------------------------------
Summary of changes:
regcomp.c | 3 +++
1 file changed, 3 insertions(+)
diff --git a/regcomp.c b/regcomp.c
index 871f4e63ac..b8265a14c9 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -7536,6 +7536,9 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int
pat_count,
goto redo_parse;
}
+ /* In a stable state, as here, this must be true */
+ assert(RExC_size = RExC_emit + 1);
+
/* Here, we have successfully parsed and generated the pattern's program
* for the regex engine. We are ready to finish things up and look for
* optimizations. */
--
Perl5 Master Repository
