diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-09-24 15:42:14 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-10-01 09:15:32 -0600 |
| commit | 9ac792f4c8d84f4e7dc8fa8d1eb254f0389b3b38 (patch) | |
| tree | 18f5ffba6ee488fb7f6df54d71445e0540b69bbb /regexec.c | |
| parent | e3136cf9c75dca4f182c2a8c635f8df7d0870483 (diff) | |
| download | perl-9ac792f4c8d84f4e7dc8fa8d1eb254f0389b3b38.tar.gz | |
regexec.c: Add assertion check
This makes sure before there is a segfault that the is_() functions
actually have the side effect that this expects.
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -127,7 +127,7 @@ 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 { \ |