This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add assertion
[perl5.git] / regcomp.c
index 871f4e6..b8265a1 100644 (file)
--- 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. */