This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence a compiler warning
authorDave Mitchell <davem@fdisolutions.com>
Sun, 2 Jul 2006 22:47:24 +0000 (22:47 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sun, 2 Jul 2006 22:47:24 +0000 (22:47 +0000)
p4raw-id: //depot/perl@28466

regexec.c

index 6b2270a..9bb8317 100644 (file)
--- 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);