diff options
| author | Andy Lester <andy@petdance.com> | 2005-11-10 16:47:00 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-11-11 04:55:56 +0000 |
| commit | 0bcc34c2b0b0cb62c0df3d5e562b779fb96595ba (patch) | |
| tree | be9a7c05ed82c609d0018f1f3ac8395cdefc28a7 /doop.c | |
| parent | 50c1ac04356af5f8e8f967db7ed083187aacb550 (diff) | |
| download | perl-0bcc34c2b0b0cb62c0df3d5e562b779fb96595ba.tar.gz | |
Const & local: Special Victims Unit
Message-ID: <20051111044700.GA24161@petdance.com>
p4raw-id: //depot/perl@26082
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -311,7 +311,6 @@ S_do_trans_simple_utf8(pTHX_ SV *sv) const UV none = svp ? SvUV(*svp) : 0x7fffffff; const UV extra = none + 1; UV final = 0; - UV uv; I32 isutf8; U8 hibit = 0; @@ -347,7 +346,8 @@ S_do_trans_simple_utf8(pTHX_ SV *sv) } while (s < send) { - if ((uv = swash_fetch(rv, s, TRUE)) < none) { + const UV uv = swash_fetch(rv, s, TRUE); + if (uv < none) { s += UTF8SKIP(s); matches++; d = uvuni_to_utf8(d, uv); @@ -973,7 +973,7 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv) if (DO_UTF8(sv)) { if (s && len) { char * const send = s + len; - char *start = s; + char * const start = s; s = send - 1; while (s > start && UTF8_IS_CONTINUATION(*s)) s--; |