From cf54f63a3f69811725b5ee09265790a038abf829 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 27 Jun 2012 14:49:10 -0500 Subject: [PATCH] fix 4f8dbb2d --- regexec.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/regexec.c b/regexec.c index c3a752c..b67a1c3 100644 --- a/regexec.c +++ b/regexec.c @@ -126,9 +126,11 @@ #else # define LOAD_UTF8_CHARCLASS(class,str) STMT_START { \ if (!CAT2(PL_utf8_,class)) { \ + bool ok; \ ENTER; save_re_context(); \ - assert(CAT2(is_utf8_,class)((const U8*)str)); \ - assert(CAT2(PL_utf8_,class)); LEAVE; } } STMT_END + ok=CAT2(is_utf8_,class)((const U8*)str); \ + PERL_UNUSED_VAR(ok); \ + assert(ok); assert(CAT2(PL_utf8_,class)); LEAVE; } } STMT_END #endif /* Doesn't do an assert to verify that is correct */ -- 2.7.4