From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 4 Nov 2005 22:50:22 +0000 (+0000)
Subject: s/printf/my_printf/ because we're using the return value.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5105eda9ec104fa4cd12906af09da2e3a0c3386;p=p5sagit%2Fp5-mst-13.2.git

s/printf/my_printf/ because we're using the return value.
My mistake spotted by Gisle.

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

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