diff options
author | Karl Williamson <khw@cpan.org> | 2019-04-28 17:26:38 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-05-24 17:09:30 -0600 |
commit | 190e86d7a39dad04ad5d024fb42c0b8fefa68ebe (patch) | |
tree | 9f2996ba83bb4e32ed23c90663b6516a6d4b14ec /pp.c | |
parent | 19c737262739194609b3dc81b416fca7ee242315 (diff) | |
download | perl-190e86d7a39dad04ad5d024fb42c0b8fefa68ebe.tar.gz |
pp.c: White-space only
Fix indentation of this routine to current standards, in preparation for
making changes to it, and add a blank line for readability
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 18 |
1 files changed, 10 insertions, 8 deletions
@@ -1999,14 +1999,15 @@ static UV S_uv_shift(UV uv, int shift, bool left) static IV S_iv_shift(IV iv, int shift, bool left) { - if (shift < 0) { - shift = -shift; - left = !left; - } - if (shift >= IV_BITS) { - return iv < 0 && !left ? -1 : 0; - } - return left ? iv << shift : iv >> shift; + if (shift < 0) { + shift = -shift; + left = !left; + } + if (shift >= IV_BITS) { + return iv < 0 && !left ? -1 : 0; + } + + return left ? iv << shift : iv >> shift; } #define UV_LEFT_SHIFT(uv, shift) S_uv_shift(uv, shift, TRUE) @@ -3740,6 +3741,7 @@ PP(pp_ucfirst) else if (DO_UTF8(source)) { /* Is the source utf8? */ doing_utf8 = TRUE; ulen = UTF8SKIP(s); + if (op_type == OP_UCFIRST) { #ifdef USE_LOCALE_CTYPE _toTITLE_utf8_flags(s, s +slen, tmpbuf, &tculen, IN_LC_RUNTIME(LC_CTYPE)); |