summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-04-28 17:26:38 -0600
committerKarl Williamson <khw@cpan.org>2019-05-24 17:09:30 -0600
commit190e86d7a39dad04ad5d024fb42c0b8fefa68ebe (patch)
tree9f2996ba83bb4e32ed23c90663b6516a6d4b14ec /pp.c
parent19c737262739194609b3dc81b416fca7ee242315 (diff)
downloadperl-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.c18
1 files changed, 10 insertions, 8 deletions
diff --git a/pp.c b/pp.c
index babf34843e..c89cb7198c 100644
--- a/pp.c
+++ b/pp.c
@@ -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));