X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e27afef8dac321d729b447b4b30a0ca796905454..8c56068e9474ff1eb28abd58496550d54581dd25:/regcomp.c

diff --git a/regcomp.c b/regcomp.c
index d860831..dd2188f 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6218,8 +6218,8 @@ Perl_save_re_context(pTHX)
 	    for (i = 1; i <= rx->nparens; i++) {
 		GV *mgv;
 		char digits[TYPE_CHARS(long)];
-		sprintf(digits, "%lu", (long)i);
-		if ((mgv = gv_fetchpv(digits, FALSE, SVt_PV)))
+		const STRLEN len = my_sprintf(digits, "%lu", (long)i);
+		if ((mgv = gv_fetchpvn_flags(digits, len, FALSE, SVt_PV)))
 		    save_scalar(mgv);
 	    }
 	}