summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2020-04-23 14:33:05 +0100
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2020-05-22 10:45:06 +0100
commita3815e44b8fba04704944693e426f3f47362d3ff (patch)
tree6b3f332bf90d50e6d3c8320ad29a05b83ae5aef0 /utf8.c
parent49704e1a7f79e12814aa5fa55084f1105e2b27ec (diff)
downloadperl-a3815e44b8fba04704944693e426f3f47362d3ff.tar.gz
Fix a bunch of repeated-word typos
Mostly in comments and docs, but some in diagnostic messages and one case of 'or die die'.
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/utf8.c b/utf8.c
index 2b30cad117..7a45ca97df 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1367,7 +1367,7 @@ describes the situation in all cases.
=item C<UTF8_GOT_CONTINUATION>
-The input sequence was malformed in that the first byte was a a UTF-8
+The input sequence was malformed in that the first byte was a UTF-8
continuation byte.
=item C<UTF8_GOT_EMPTY>
@@ -1621,7 +1621,7 @@ Perl__utf8n_to_uvchr_msgs_helper(const U8 *s,
* things. For example, an input could be deliberately designed to
* overflow, and if this code bailed out immediately upon discovering that,
* returning to the caller C<*retlen> pointing to the very next byte (one
- * which is actually part of of the overflowing sequence), that could look
+ * which is actually part of the overflowing sequence), that could look
* legitimate to the caller, which could discard the initial partial
* sequence and process the rest, inappropriately.
*
@@ -3622,7 +3622,7 @@ S_turkic_uc(pTHX_ const U8 * const p, const U8 * const e,
* ustrp will contain *lenp bytes
*
* Turkic differs only from non-Turkic in that 'i' and LATIN CAPITAL LETTER
- * I WITH DOT ABOVE form a case pair, as do 'I' and and LATIN SMALL LETTER
+ * I WITH DOT ABOVE form a case pair, as do 'I' and LATIN SMALL LETTER
* DOTLESS I */
PERL_ARGS_ASSERT_TURKIC_UC;
@@ -3739,7 +3739,7 @@ S_turkic_uc(pTHX_ const U8 * const p, const U8 * const e,
return result;
/* Not currently externally documented, and subject to change:
- * <flags> is set iff iff the rules from the current underlying locale are to
+ * <flags> is set iff the rules from the current underlying locale are to
* be used. */
UV
@@ -3786,7 +3786,7 @@ Perl__to_utf8_title_flags(pTHX_ const U8 *p,
}
/* Not currently externally documented, and subject to change:
- * <flags> is set iff iff the rules from the current underlying locale are to
+ * <flags> is set iff the rules from the current underlying locale are to
* be used.
*/