From c46d03cf70a58e85dfbfd7f78d6fdbb5244808c5 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 22 Dec 2011 20:09:11 -0700 Subject: regcomp.c: Make sure trie can handle node passed to it --- regcomp.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'regcomp.c') diff --git a/regcomp.c b/regcomp.c index a05ae449ce..d3a150ed38 100644 --- a/regcomp.c +++ b/regcomp.c @@ -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) ); -- cgit v1.2.1