regcomp.c: Make sure trie can handle node passed to it

1 files changed, 2 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index b2439d903b..68b9e04d06 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) );