Integrate from maint-5.8 : changes 18290-1, 18293-5, 18297

[p5sagit/p5-mst-13.2.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 1f53655..4813261 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5075,7 +5075,7 @@ Perl_save_re_context(pTHX)
 
        if (PL_curpm && (rx = PM_GETRE(PL_curpm))) {
            for (i = 1; i <= rx->nparens; i++) {
-               sprintf(digits, "%lu", i);
+               sprintf(digits, "%lu", (long)i);
                if ((mgv = gv_fetchpv(digits, FALSE, SVt_PV)))
                    save_scalar(mgv);
            }