From a3815e44b8fba04704944693e426f3f47362d3ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= Date: Thu, 23 Apr 2020 14:33:05 +0100 Subject: Fix a bunch of repeated-word typos Mostly in comments and docs, but some in diagnostic messages and one case of 'or die die'. --- pp_hot.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 9698fb3727..004dfba6b0 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -640,7 +640,7 @@ PP(pp_multiconcat) * one set of segment lengths. * * * If the string has different plain and utf8 representations - * (e.g. "\x80"), then then aux[PERL_MULTICONCAT_IX_PLAIN_PV/LEN]] + * (e.g. "\x80"), then aux[PERL_MULTICONCAT_IX_PLAIN_PV/LEN]] * holds the plain rep, while aux[PERL_MULTICONCAT_IX_UTF8_PV/LEN] * holds the utf8 rep, and there are 2 sets of segment lengths, * with the utf8 set following after the plain set. @@ -687,7 +687,7 @@ PP(pp_multiconcat) * calculate how much extra growth is needed for all the chars * which will expand to two utf8 bytes. * Also, if the growth is non-zero, negate the length to indicate - * that this this is a variant string. Conversely, un-negate the + * that this is a variant string. Conversely, un-negate the * length on utf8 args (which was only needed to flag non-utf8 * args in this loop */ for (svpv_p = svpv_buf; svpv_p < svpv_end; svpv_p++) { -- cgit v1.2.1