summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-01-30 10:35:21 -0700
committerKarl Williamson <khw@cpan.org>2019-02-04 21:00:50 -0700
commit526f8cbff8ce0a6402d8eb64ac3970e48c8716c3 (patch)
tree34297f7b5ada7b8c4d0cbdbe062d61c9d33faacf /pp.c
parenta8e41ef404b996cb8f50be6cce716145ac4a3f67 (diff)
downloadperl-526f8cbff8ce0a6402d8eb64ac3970e48c8716c3.tar.gz
pp.c: pp_fc(): Simplify
The function being called does everything that the code being eliminated here did. We just pass the function the final destination instead of a temporary.
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c17
1 files changed, 2 insertions, 15 deletions
diff --git a/pp.c b/pp.c
index 309cdbc699..3c7421520a 100644
--- a/pp.c
+++ b/pp.c
@@ -4555,21 +4555,8 @@ PP(pp_fc)
for (; s < send; s++) {
STRLEN ulen;
- UV fc = _to_uni_fold_flags(*s, tmpbuf, &ulen, flags);
- if UVCHR_IS_INVARIANT(fc) {
- if (full_folding
- && *s == LATIN_SMALL_LETTER_SHARP_S)
- {
- *d++ = 's';
- *d++ = 's';
- }
- else
- *d++ = (U8)fc;
- }
- else {
- Copy(tmpbuf, d, ulen, U8);
- d += ulen;
- }
+ _to_uni_fold_flags(*s, d, &ulen, flags);
+ d += ulen;
}
break;
}