From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 9 Dec 2002 00:14:58 +0000 (+0000)
Subject: fix #18266 sprintf format mismatch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d994d9a1b8a73bc9fe2d24db293df04097139d91;p=p5sagit%2Fp5-mst-13.2.git

fix #18266 sprintf format mismatch

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

diff --git a/regcomp.c b/regcomp.c
index 1f53655..4813261 100644
--- 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);
 	    }