diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-16 05:13:53 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-16 16:56:43 +0000 |
| commit | a3b680e6b77dd7f88268fad8b1dbdf4f641dd836 (patch) | |
| tree | 5b6dc5a60baf7a56b2db73bf0faffe0c3c44963c /perl.c | |
| parent | 02a44301bf4932369de0c75ad20a9c1256a455cd (diff) | |
| download | perl-a3b680e6b77dd7f88268fad8b1dbdf4f641dd836.tar.gz | |
consting-eleventy.patch: More consts, plus actual bug fix
Message-ID: <20050516151353.GA25387@petdance.com>
p4raw-id: //depot/perl@24489
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -2551,20 +2551,21 @@ char * Perl_moreswitches(pTHX_ char *s) { dVAR; - STRLEN numlen; UV rschar; switch (*s) { case '0': { I32 flags = 0; + STRLEN numlen; SvREFCNT_dec(PL_rs); if (s[1] == 'x' && s[2]) { - char *e; + const char *e = s+=2; U8 *tmps; - for (s += 2, e = s; *e; e++); + while (*e) + e++; numlen = e - s; flags = PERL_SCAN_SILENT_ILLDIGIT; rschar = (U32)grok_hex(s, &numlen, &flags, NULL); @@ -2719,6 +2720,7 @@ Perl_moreswitches(pTHX_ char *s) } if (isDIGIT(*s)) { I32 flags = 0; + STRLEN numlen; PL_ors_sv = newSVpvn("\n",1); numlen = 3 + (*s == '0'); *SvPVX(PL_ors_sv) = (char)grok_oct(s, &numlen, &flags, NULL); |