summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-02-27 13:56:00 -0700
committerKarl Williamson <khw@cpan.org>2019-11-06 21:22:23 -0700
commit2f96a1b45550620873a2dd338a4ad004910ce4f8 (patch)
treed4783c39fa3cfc2baa6d37a5130a5fa7067884ca /doop.c
parente8f0fec863d7b588d1fe0d52eabc7822542ed0ff (diff)
downloadperl-2f96a1b45550620873a2dd338a4ad004910ce4f8.tar.gz
doop.c, op.c: White-space only
Remove trailing blanks and outdent a doubly indented block
Diffstat (limited to 'doop.c')
-rw-r--r--doop.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/doop.c b/doop.c
index a01fc04723..88e0c317c6 100644
--- a/doop.c
+++ b/doop.c
@@ -188,7 +188,7 @@ S_do_trans_complex(pTHX_ SV * const sv)
p = d++;
}
else if (ch == -1) /* -1 is unmapped character */
- *d++ = *s;
+ *d++ = *s;
else if (ch == -2) /* -2 is delete character */
matches++;
s++;
@@ -501,7 +501,7 @@ S_do_trans_complex_utf8(pTHX_ SV * const sv)
UV puv = 0xfeedface;
while (s < send) {
UV uv = swash_fetch(rv, s, TRUE);
-
+
if (d > dend) {
const STRLEN clen = d - dstart;
const STRLEN nlen = dend - dstart + len + UTF8_MAXBYTES;
@@ -751,7 +751,7 @@ Perl_do_vecget(pTHX_ SV *sv, STRLEN offset, int size)
if (!s) {
s = (unsigned char *)"";
}
-
+
PERL_ARGS_ASSERT_DO_VECGET;
if (size < 1 || (size & (size-1))) /* size < 1 or not a power of two */