diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-12-22 20:09:11 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-19 11:58:17 -0700 |
commit | c46d03cf70a58e85dfbfd7f78d6fdbb5244808c5 (patch) | |
tree | 16235333335ec863aa388119b1b7879cc60fe486 /regcomp.c | |
parent | fa5b16679862959f67d73977b6548d8315481669 (diff) | |
download | perl-c46d03cf70a58e85dfbfd7f78d6fdbb5244808c5.tar.gz |
regcomp.c: Make sure trie can handle node passed to it
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1515,10 +1515,12 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch, regnode *firs #endif switch (flags) { + case EXACT: break; case EXACTFA: case EXACTFU: folder = PL_fold_latin1; break; case EXACTF: folder = PL_fold; break; case EXACTFL: folder = PL_fold_locale; break; + default: Perl_croak( aTHX_ "panic! In trie construction, unknown node type %u", (unsigned) flags ); } trie = (reg_trie_data *) PerlMemShared_calloc( 1, sizeof(reg_trie_data) ); |