summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2002-12-09 00:14:58 +0000
committerhv <hv@crypt.org>2002-12-09 00:14:58 +0000
commitd994d9a1b8a73bc9fe2d24db293df04097139d91 (patch)
treeb0f2f077a56743c1d05b66a149d57810d6d11b35 /regcomp.c
parentc473feecc28308679db0cf6f8fc1f902de2584d6 (diff)
downloadperl-d994d9a1b8a73bc9fe2d24db293df04097139d91.tar.gz
fix #18266 sprintf format mismatch
p4raw-id: //depot/perl@18268
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 1f53655190..4813261c01 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);
}