diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-11-11 10:45:27 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-11-11 13:30:59 -0700 |
commit | 17e95c9d98739c7991e60a16f261b29b0fdb242d (patch) | |
tree | 3e21fc087ed2fc4f2c20f6d1773a67453c3072f6 /pp.c | |
parent | 623cd299abd625a89c29cda37cda133347df139e (diff) | |
download | perl-17e95c9d98739c7991e60a16f261b29b0fdb242d.tar.gz |
pp.c: White-space only
This outdents and reflows comments as a result of the removal of a
surrounding block
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -3537,14 +3537,13 @@ PP(pp_ucfirst) } else if (DO_UTF8(source)) { /* Is the source utf8? */ doing_utf8 = TRUE; + ulen = UTF8SKIP(s); + if (op_type == OP_UCFIRST) toTITLE_utf8(s, tmpbuf, &tculen); + else toLOWER_utf8(s, tmpbuf, &tculen); - ulen = UTF8SKIP(s); - if (op_type == OP_UCFIRST) toTITLE_utf8(s, tmpbuf, &tculen); - else toLOWER_utf8(s, tmpbuf, &tculen); - - /* we can't do in-place if the length changes. */ - if (ulen != tculen) inplace = FALSE; - need = slen + 1 - ulen + tculen; + /* we can't do in-place if the length changes. */ + if (ulen != tculen) inplace = FALSE; + need = slen + 1 - ulen + tculen; } else { /* Non-zero length, non-UTF-8, Need to consider locale and if * latin1 is treated as caseless. Note that a locale takes |