summaryrefslogtreecommitdiff
path: root/dquote.c
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2020-12-28 18:04:52 -0800
committerKarl Williamson <khw@cpan.org>2021-01-17 09:18:15 -0700
commit1604cfb0273418ed479719f39def5ee559bffda2 (patch)
tree166a5ab935a029ab86cf6295d6f3cb77da22e559 /dquote.c
parent557ff1b2a4ecd18fe9229e7e0eb8fa123adc5670 (diff)
downloadperl-1604cfb0273418ed479719f39def5ee559bffda2.tar.gz
style: Detabify indentation of the C code maintained by the core.
This just detabifies to get rid of the mixed tab/space indentation. Applying consistent indentation and dealing with other tabs are another issue. Done with `expand -i`. * vutil.* left alone, it's part of version. * Left regen managed files alone for now.
Diffstat (limited to 'dquote.c')
-rw-r--r--dquote.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/dquote.c b/dquote.c
index dcbd8c93ac..8fc4e689fb 100644
--- a/dquote.c
+++ b/dquote.c
@@ -117,7 +117,7 @@ Perl_form_alien_digit_msg(pTHX_
/* It also isn't a UTF-8 invariant character, so no display shortcuts
* are available. Use \\x{...} */
- Perl_sv_setpvf(aTHX_ display_char, "\\x{%02x}", *first_bad);
+ Perl_sv_setpvf(aTHX_ display_char, "\\x{%02x}", *first_bad);
}
/* Ready to start building the message */
@@ -286,8 +286,8 @@ Perl_grok_bslash_o(pTHX_ char **s, const char * const send, UV *uv,
(*s)++;
if (send <= *s || **s != '{') {
- *message = "Missing braces on \\o{}";
- return FALSE;
+ *message = "Missing braces on \\o{}";
+ return FALSE;
}
e = (char *) memchr(*s, '}', send - *s);
@@ -297,7 +297,7 @@ Perl_grok_bslash_o(pTHX_ char **s, const char * const send, UV *uv,
(*s)++;
}
*message = "Missing right brace on \\o{}";
- return FALSE;
+ return FALSE;
}
(*s)++; /* Point to expected first digit (could be first byte of utf8
@@ -305,8 +305,8 @@ Perl_grok_bslash_o(pTHX_ char **s, const char * const send, UV *uv,
numbers_len = e - *s;
if (numbers_len == 0) {
(*s)++; /* Move past the '}' */
- *message = "Empty \\o{}";
- return FALSE;
+ *message = "Empty \\o{}";
+ return FALSE;
}
*uv = grok_oct(*s, &numbers_len, &flags, NULL);
@@ -423,8 +423,8 @@ Perl_grok_bslash_x(pTHX_ char ** s, const char * const send, UV *uv,
if (**s != '{') {
numbers_len = (strict) ? 3 : 2;
- *uv = grok_hex(*s, &numbers_len, &flags, NULL);
- *s += numbers_len;
+ *uv = grok_hex(*s, &numbers_len, &flags, NULL);
+ *s += numbers_len;
if (numbers_len != 2 && (strict || (flags & PERL_SCAN_NOTIFY_ILLDIGIT))) {
if (numbers_len == 3) { /* numbers_len 3 only happens with strict */
@@ -449,7 +449,7 @@ Perl_grok_bslash_x(pTHX_ char ** s, const char * const send, UV *uv,
}
}
}
- return TRUE;
+ return TRUE;
}
e = (char *) memchr(*s, '}', send - *s);
@@ -458,8 +458,8 @@ Perl_grok_bslash_x(pTHX_ char ** s, const char * const send, UV *uv,
while (*s < send && isXDIGIT(**s)) { /* Position beyond legal digits */
(*s)++;
}
- *message = "Missing right brace on \\x{}";
- return FALSE;
+ *message = "Missing right brace on \\x{}";
+ return FALSE;
}
(*s)++; /* Point to expected first digit (could be first byte of utf8