[perl.git] branch blead, updated. v5.17.1-208-gcf54f63

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/cf54f63a3f69811725b5ee09265790a038abf829?hp=3c60b34b858a855f08bc3af15e0081a8977e01c9>

- Log -----------------------------------------------------------------
commit cf54f63a3f69811725b5ee09265790a038abf829
Author: Jesse Luehrs <doy@tozt.net>
Date:   Wed Jun 27 14:49:10 2012 -0500

    fix 4f8dbb2d
-----------------------------------------------------------------------

Summary of changes:
 regexec.c |    6 ++++--
 1 files 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 */

--
Perl5 Master Repository

• [perl.git] branch blead, updated. v5.17.1-208-gcf54f63 by Jesse Luehrs