From 492545f73d5a8db2394038f4d4f9e4421951c4ca Mon Sep 17 00:00:00 2001
From: Wes Malone <438799+wesQ3@users.noreply.github.com>
Date: Tue, 24 Jun 2025 16:15:22 -0500
Subject: [PATCH] Fix parsing of multi-line extended regex

End patterns now allow the second 'x' to use extended regex with
whitespace in character classes.

See https://perldoc.perl.org/perlre#/x-and-/xx
---
 server/perl.tmLanguage.json | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/server/perl.tmLanguage.json b/server/perl.tmLanguage.json
index f831f35..1a29914 100644
--- a/server/perl.tmLanguage.json
+++ b/server/perl.tmLanguage.json
@@ -747,7 +747,7 @@
 		{
 			"begin": "\\b(?=(?<!\\\\|\\->)s\\s*([^\\s\\w\\[({<>]))",
 			"comment": "string.regexp.replace.extended",
-			"end": "((([egimosradlupc]*x[egimosradlupc]*)))\\b",
+			"end": "((([egimosradlupc]*x[egimosradlupcx]*)))\\b",
 			"endCaptures": {
 				"1": {
 					"name": "string.regexp.replace.perl"
@@ -785,7 +785,7 @@
 							"name": "punctuation.definition.string.perl"
 						}
 					},
-					"end": "'(?=[egimosradlupc]*x[egimosradlupc]*)\\b",
+					"end": "'(?=[egimosradlupc]*x[egimosradlupcx]*)\\b",
 					"name": "string.regexp.replace.extended.simple_delimiter.perl",
 					"patterns": [
 						{
@@ -800,7 +800,7 @@
 							"name": "punctuation.definition.string.perl"
 						}
 					},
-					"end": "\\1(?=[egimosradlupc]*x[egimosradlupc]*)\\b",
+					"end": "\\1(?=[egimosradlupc]*x[egimosradlupcx]*)\\b",
 					"name": "string.regexp.replace.extended.simple_delimiter.perl",
 					"patterns": [
 						{