C is not perl, AV's dont just magically free themselves...

Message-ID: <9b18b3110605300123t467f14eerf30a149f253be281@mail.gmail.com>

p4raw-id: //depot/perl@28336

diff --git a/regcomp.c b/regcomp.c
index 10b21d1..97e0650 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -1671,6 +1671,9 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch, regnode *firs
             }
         });
     } /* end node insert */
+#ifndef DEBUGGING    
+    SvREFCNT_dec(TRIE_REVCHARMAP(trie));
+#endif    
     return 1;
 }