This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix 4f8dbb2d
authorJesse Luehrs <doy@tozt.net>
Wed, 27 Jun 2012 19:49:10 +0000 (14:49 -0500)
committerJesse Luehrs <doy@tozt.net>
Wed, 27 Jun 2012 19:55:10 +0000 (14:55 -0500)
regexec.c

index c3a752c..b67a1c3 100644 (file)
--- a/regexec.c
+++ b/regexec.c
 #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 */