From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 2 Jul 2006 22:47:24 +0000 (+0000)
Subject: silence a compiler warning
X-Git-Tag: v5.10.0~3382
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/466787eb2f756fc2ca8af7ea23633e8818806e45

silence a compiler warning

p4raw-id: //depot/perl@28466
---

diff --git a/regexec.c b/regexec.c
index 6b2270a..9bb8317 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4489,7 +4489,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
 		if (ST.c1 != CHRTEST_VOID)
 		    c = do_utf8 ? utf8n_to_uvchr((U8*)PL_reginput,
 					   UTF8_MAXBYTES, 0, uniflags)
-				: UCHARAT(PL_reginput);
+				: (UV) UCHARAT(PL_reginput);
 		/* If it could work, try it. */
 		if (ST.c1 == CHRTEST_VOID || c == (UV)ST.c1 || c == (UV)ST.c2) {
 		    CURLY_SETPAREN(ST.paren, ST.count);