Add support for a, d, l and u regex modifiers (all new in 5.14)

textmate · Sep 14, 2012 · 7d26e36 · 7d26e36
1 parent f52c2a0
commit 7d26e36
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/Syntaxes/Perl.plist b/Syntaxes/Perl.plist
@@ -54,7 +54,7 @@
 			<key>comment</key>
 			<string>string.regexp.compile.perl</string>
 			<key>end</key>
-			<string>((([egimosxr]*)))(?=(\s+\S|\s*[;\,\#\{\}\)]|$))</string>
+			<string>((([egimosxradlu]*)))(?=(\s+\S|\s*[;\,\#\{\}\)]|$))</string>
 			<key>endCaptures</key>
 			<dict>
 				<key>1</key>
@@ -301,7 +301,7 @@
 			<key>comment</key>
 			<string>string.regexp.replace.perl</string>
 			<key>end</key>
-			<string>((([egimosxr]*)))(?=(\s+\S|\s*[;\,\#\{\}\)\]&gt;]|$))</string>
+			<string>((([egimosxradlu]*)))(?=(\s+\S|\s*[;\,\#\{\}\)\]&gt;]|$))</string>
 			<key>endCaptures</key>
 			<dict>
 				<key>1</key>
@@ -634,11 +634,11 @@
 		</dict>
 		<dict>
 			<key>begin</key>
-			<string>\b(?=s([^\s\w\[({&lt;]).*\1([egimosr]*)([\}\)\;\,]|\s+))</string>
+			<string>\b(?=s([^\s\w\[({&lt;]).*\1([egimosradlu]*)([\}\)\;\,]|\s+))</string>
 			<key>comment</key>
 			<string>string.regexp.replaceXXX</string>
 			<key>end</key>
-			<string>((([egimosr]*)))(?=([\}\)\;\,]|\s+|$))</string>
+			<string>((([egimosradlu]*)))(?=([\}\)\;\,]|\s+|$))</string>
 			<key>endCaptures</key>
 			<dict>
 				<key>1</key>
@@ -747,7 +747,7 @@
 			<key>comment</key>
 			<string>string.regexp.replace.extended</string>
 			<key>end</key>
-			<string>\2((([egimosr]*x[egimosr]*)))\b</string>
+			<string>\2((([egimosradlu]*x[egimosradlu]*)))\b</string>
 			<key>endCaptures</key>
 			<dict>
 				<key>1</key>
@@ -808,7 +808,7 @@
 						</dict>
 					</dict>
 					<key>end</key>
-					<string>'(?=[egimosr]*x[egimosr]*)\b</string>
+					<string>'(?=[egimosradlu]*x[egimosradlu]*)\b</string>
 					<key>name</key>
 					<string>string.regexp.replace.extended.simple_delimiter.perl</string>
 					<key>patterns</key>
@@ -831,7 +831,7 @@
 						</dict>
 					</dict>
 					<key>end</key>
-					<string>\1(?=[egimosr]*x[egimosr]*)\b</string>
+					<string>\1(?=[egimosradlu]*x[egimosradlu]*)\b</string>
 					<key>name</key>
 					<string>string.regexp.replace.extended.simple_delimiter.perl</string>
 					<key>patterns</key>