This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove unused USING_WIDE code from win32 and wince branches
[perl5.git] / regcomp.c
index d288eb0..dd2188f 100644 (file)
--- 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);
            }