This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Add assertion check
[perl5.git] / regexec.c
index bdd5e3f..e6d3fa4 100644 (file)
--- a/regexec.c
+++ b/regexec.c
        bool ok; \
        ENTER; save_re_context(); \
        ok=CAT2(is_utf8_,class)((const U8*)str); \
-       assert(ok); LEAVE; } } STMT_END
+       assert(ok); assert(CAT2(PL_utf8_,class)); LEAVE; } } STMT_END
 
 /* Doesn't do an assert to verify that is correct */
 #define LOAD_UTF8_CHARCLASS_NO_CHECK(class) STMT_START { \