Add environment variable for -Dr: PERL_DUMP_RE_MAX_LEN

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 4f558a8..50a9ee0 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -807,6 +807,8 @@ PERLVARA(I, op_exec_cnt, OP_max+2, UV)      /* Counts of executed OPs of the given ty
 
 PERLVAR(I, random_state, PL_RANDOM_STATE_TYPE)
 
+PERLVARI(I, dump_re_max_len, STRLEN, 0)
+
 /* If you are adding a U8 or U16, check to see if there are 'Space' comments
  * above on where there are gaps which currently will be structure padding.  */