Change 18268: fix #18266 sprintf format mismatch

[hv]

Change 18268 by [EMAIL PROTECTED] on 2002/12/09 00:14:58

        fix #18266 sprintf format mismatch

Affected files ...

.... //depot/perl/regcomp.c#315 edit

Differences ...

==== //depot/perl/regcomp.c#315 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#314~18266~   Sun Dec  8 16:02:57 2002
+++ perl/regcomp.c      Sun Dec  8 16:14:58 2002
@@ -5075,7 +5075,7 @@
 
        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);
            }
End of Patch.