Index: Perl.plist
===================================================================
--- Perl.plist (revision 6192)
+++ Perl.plist (working copy)
@@ -54,7 +54,7 @@
applyEndPatternLast
1
begin
- \b(?=qr[^\s\w])
+ \b(?=qr\s*[^\s\w])
comment
string.regexp.compile.perl
end
@@ -81,7 +81,7 @@
begin
- (qr)\{
+ (qr)\s*\{
captures
0
@@ -117,7 +117,7 @@
begin
- (qr)\[
+ (qr)\s*\[
captures
0
@@ -153,7 +153,7 @@
begin
- (qr)<
+ (qr)\s*<
captures
0
@@ -189,7 +189,7 @@
begin
- (qr)\(
+ (qr)\s*\(
captures
0
@@ -225,7 +225,7 @@
begin
- (qr)\'
+ (qr)\s*\'
captures
0
@@ -253,7 +253,7 @@
begin
- (qr)([^\s\w\'\{\[\(\<])
+ (qr)\s*([^\s\w\'\{\[\(\<])
captures
0
@@ -293,11 +293,11 @@
applyEndPatternLast
1
begin
- \b(?=(s)(\s+\S|\s*[;\,\#\{\}\)]|$))
+ \b(?=(s)(\s+\S|\s*[;\,\#\{\}\(\)\[<]|$))
comment
string.regexp.replace.perl
end
- ((([egimosx]*)))(?=(\s+\S|\s*[;\,\#\{\}\)]|$))
+ ((([egimosx]*)))(?=(\s+\S|\s*[;\,\#\{\}\)\]>]|$))
endCaptures
1
@@ -320,7 +320,7 @@
begin
- (s)\{
+ (s)\s*\{
captures
0
@@ -352,7 +352,7 @@
begin
- (s)\[
+ (s)\s*\[
captures
0
@@ -384,7 +384,7 @@
begin
- (s)<
+ (s)\s*<
captures
0
@@ -416,7 +416,7 @@
begin
- (s)\(
+ (s)\s*\(
captures
0
@@ -657,7 +657,7 @@
begin
- (s)([^\s\w\[({<])
+ (s\s*)([^\s\w\[({<])
captures
0
@@ -739,7 +739,7 @@
begin
- \b(?=(?<!\\)s([^\s\w\[({<]))
+ \b(?=(?<!\\)s\s*([^\s\w\[({<]))
comment
string.regexp.replace.extended
end
@@ -766,7 +766,7 @@
begin
- (s)(.)
+ (s)\s*(.)
captures
0
@@ -1145,6 +1145,45 @@
+ begin
+ \b(m)\s*(?<!\\)\<
+ beginCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.begin.perl
+
+
+ end
+ \>
+ endCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.end.perl
+
+
+ name
+ string.regexp.find-m-ltgt.perl
+ patterns
+
+
+ include
+ #escaped_char
+
+
+ include
+ #nested_ltgt_interpolated
+
+
+ include
+ #variable
+
+
+
+
captures
1
@@ -1726,7 +1765,7 @@
begin
- \bqq([^\(\{\[\w\s])
+ \bqq\s*([^\(\{\[\<\w\s])
beginCaptures
0
@@ -1761,7 +1800,7 @@
begin
- \bqx([^'\(\{\[\w\s])
+ \bqx\s*([^'\(\{\[\<\w\s])
beginCaptures
0
@@ -1796,7 +1835,7 @@
begin
- \bqx'
+ \bqx\s*'
beginCaptures
0
@@ -1862,7 +1901,7 @@
begin
- \bqw?([^\(\{\[\w\s])
+ \bqw?\s*([^\(\{\[\<\w\s])
beginCaptures
0
@@ -1961,7 +2000,7 @@
begin
- \bqq\(
+ \bqq\s*\(
beginCaptures
0
@@ -2000,7 +2039,7 @@
begin
- \bqq\{
+ \bqq\s*\{
beginCaptures
0
@@ -2039,7 +2078,7 @@
begin
- \bqq\[
+ \bqq\s*\[
beginCaptures
0
@@ -2078,7 +2117,7 @@
begin
- \bqx\(
+ \bqq\s*\<
beginCaptures
0
@@ -2088,6 +2127,45 @@
end
+ \>
+ endCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.end.perl
+
+
+ name
+ string.quoted.other.qq-ltgt.perl
+ patterns
+
+
+ include
+ #escaped_char
+
+
+ include
+ #nested_ltgt_interpolated
+
+
+ include
+ #variable
+
+
+
+
+ begin
+ \bqx\s*\(
+ beginCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.begin.perl
+
+
+ end
\)
endCaptures
@@ -2117,7 +2195,7 @@
begin
- \bqx\{
+ \bqx\s*\{
beginCaptures
0
@@ -2156,7 +2234,7 @@
begin
- \bqx\[
+ \bqx\s*\[
beginCaptures
0
@@ -2195,7 +2273,7 @@
begin
- \bqw?\(
+ \bqx\s*\<
beginCaptures
0
@@ -2205,6 +2283,45 @@
end
+ \>
+ endCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.end.perl
+
+
+ name
+ string.interpolated.qx-ltgt.perl
+ patterns
+
+
+ include
+ #escaped_char
+
+
+ include
+ #nested_ltgt_interpolated
+
+
+ include
+ #variable
+
+
+
+
+ begin
+ \bqw?\s*\(
+ beginCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.begin.perl
+
+
+ end
\)
endCaptures
@@ -2230,7 +2347,7 @@
begin
- \bqw?\{
+ \bqw?\s*\{
beginCaptures
0
@@ -2265,7 +2382,7 @@
begin
- \bqw?\[
+ \bqw?\s*\[
beginCaptures
0
@@ -2300,6 +2417,41 @@
begin
+ \bqw?\s*\<
+ beginCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.begin.perl
+
+
+ end
+ \>
+ endCaptures
+
+ 0
+
+ name
+ punctuation.definition.string.end.perl
+
+
+ name
+ string.quoted.other.q-ltgt.perl
+ patterns
+
+
+ include
+ #escaped_char
+
+
+ include
+ #nested_ltgt
+
+
+
+
+ begin
^__\w+__
beginCaptures