This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Use mnemonic for flag parameter
authorKarl Williamson <khw@cpan.org>
Mon, 18 Mar 2019 03:59:52 +0000 (21:59 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 18 Mar 2019 04:17:28 +0000 (22:17 -0600)
regcomp.c

index 5f2c863..98c5f42 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -2700,7 +2700,7 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch,
         trie_words = newAV();
     });
 
-    re_trie_maxbuff = get_sv(RE_TRIE_MAXBUF_NAME, 1);
+    re_trie_maxbuff = get_sv(RE_TRIE_MAXBUF_NAME, GV_ADD);
     assert(re_trie_maxbuff);
     if (!SvIOK(re_trie_maxbuff)) {
         sv_setiv(re_trie_maxbuff, RE_TRIE_MAXBUF_INIT);