Andy Lester <[EMAIL PROTECTED]> wrote:
:@@ -9744,6 +9747,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const cha
: SvGROW(sv, SvCUR(sv) + need + dotstrlen + 1);
: p = SvEND(sv);
: if (esignlen && fill == '0') {
:+ int i;
: for (i = 0; i < (int)esignlen; i++)
: *p++ = esignbuf[i];
: }
:@@ -9752,10 +9756,12 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const cha
: p += gap;
: }
: if (esignlen && fill != '0') {
:+ int i;
: for (i = 0; i < (int)esignlen; i++)
: *p++ = esignbuf[i];
: }
: if (zeros) {
:+ int i;
: for (i = zeros; i; i--)
: *p++ = '0';
: }
[...]
:@@ -9867,6 +9873,7 @@ Perl_re_dup(pTHX_ REGEXP *r, CLONE_PARAM
: if (r->data) {
: struct reg_data *d;
: const int count = r->data->count;
:+ int i;
:
: Newc(0, d, sizeof(struct reg_data) + count*sizeof(void *),
Minor nit: is it in any way useful to redeclare a scratch variable
at an inner scope when you can't remove it from the outer scope
due to other scratch uses?
Hugo
