From: Karl Williamson <khw@cpan.org>
Date: Mon, 17 Feb 2020 19:05:00 +0000 (-0700)
Subject: regcomp.c: Fix comment
X-Git-Tag: v5.31.9~23
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/9f55257555c98b527185e6747eb633b2bdb70c0b

regcomp.c: Fix comment
---

diff --git a/regcomp.c b/regcomp.c
index 9cad719..2d2dc8b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -16229,7 +16229,7 @@ redo_curchar:
                     && UCHARAT(RExC_parse + 1) == '?'
                     && UCHARAT(RExC_parse + 2) == '^')
                 {
-                    /* If is a '(?', could be an embedded '(?^flags:(?[...])'.
+                    /* If is a '(?^', could be an embedded '(?^flags:(?[...])'.
                      * This happens when we have some thing like
                      *
                      *   my $thai_or_lao = qr/(?[ \p{Thai} + \p{Lao} ])/;