From e1bb44152798a27367c108d92e20d4ca130a0302 Mon Sep 17 00:00:00 2001
From: Wes Malone <wes@mitsi.com>
Date: Tue, 24 Jun 2025 19:57:31 -0500
Subject: [PATCH] Fix parsing of multi-line extended regex

5.26+: 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
---
 Syntaxes/Perl.plist | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Syntaxes/Perl.plist b/Syntaxes/Perl.plist
index c863982..8db03f1 100644
--- a/Syntaxes/Perl.plist
+++ b/Syntaxes/Perl.plist
@@ -1068,7 +1068,7 @@
 			<key>comment</key>
 			<string>string.regexp.replace.extended</string>
 			<key>end</key>
-			<string>((([egimosradlupc]*x[egimosradlupc]*)))\b</string>
+			<string>((([egimosradlupc]*x[egimosradlupcx]*)))\b</string>
 			<key>endCaptures</key>
 			<dict>
 				<key>1</key>
@@ -1129,7 +1129,7 @@
 						</dict>
 					</dict>
 					<key>end</key>
-					<string>'(?=[egimosradlupc]*x[egimosradlupc]*)\b</string>
+					<string>'(?=[egimosradlupc]*x[egimosradlupcx]*)\b</string>
 					<key>name</key>
 					<string>string.regexp.replace.extended.simple_delimiter.perl</string>
 					<key>patterns</key>
@@ -1152,7 +1152,7 @@
 						</dict>
 					</dict>
 					<key>end</key>
-					<string>\1(?=[egimosradlupc]*x[egimosradlupc]*)\b</string>
+					<string>\1(?=[egimosradlupc]*x[egimosradlupcx]*)\b</string>
 					<key>name</key>
 					<string>string.regexp.replace.extended.simple_delimiter.perl</string>
 					<key>patterns</key>