Add warning about octal > 377 in some regexes

(Tweaked by rgs)

Message-ID: <496D3F02.6020204@khwilliamson.com>

1 files changed, 13 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index 3ad1f3b07d..e06152820c 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -7430,6 +7430,19 @@ tryagain:
                             I32 flags = 0;
 			    STRLEN numlen = 3;
 			    ender = grok_oct(p, &numlen, &flags, NULL);
+
+			    /* An octal above 0xff is interpreted differently
+			     * depending on if the re is in utf8 or not.  If it
+			     * is in utf8, the value will be itself, otherwise
+			     * it is interpreted as modulo 0x100.  It has been
+			     * decided to discourage the use of octal above the
+			     * single-byte range.  For now, warn only when
+			     * it ends up modulo */
+			    if (SIZE_ONLY && ender >= 0x100
+				    && ! UTF && ! PL_encoding
+				    && ckWARN2(WARN_DEPRECATED, WARN_REGEXP)) {
+				vWARNdep(p, "Use of octal value above 377 is deprecated");
+			    }
 			    p += numlen;
 			}
 			else {