tm-grammars 1.22.3 → 1.22.5

package/grammars/perl.json

@@ -31,7 +31,7 @@
       "applyEndPatternLast": 1,
       "begin": "\\b(?=qr\\s*[^\\s\\w])",
       "comment": "string.regexp.compile.perl",
-      "end": "((([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,#{})]|\\s*$))",
+      "end": "((([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,\\#\\{\\}\\)]|\\s*$))",
       "endCaptures": {
         "1": {
           "name": "string.regexp.compile.perl"
@@ -131,7 +131,7 @@
           "patterns": [
             {
               "comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
-              "match": "\\$(?=[^\\s\\w\\\\'{\\[(<])"
+              "match": "\\$(?=[^\\s\\w\\\\'\\{\\[\\(\\<])"
             },
             {
               "include": "#escaped_char"
@@ -163,7 +163,7 @@
           ]
         },
         {
-          "begin": "(qr)\\s*([^\\s\\w'{\\[(<])",
+          "begin": "(qr)\\s*([^\\s\\w'\\{\\[\\(\\<])",
           "captures": {
             "0": {
               "name": "punctuation.definition.string.perl"
@@ -177,7 +177,7 @@
           "patterns": [
             {
               "comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
-              "match": "\\$(?=[^\\s\\w'{\\[(<])",
+              "match": "\\$(?=[^\\s\\w'\\{\\[\\(\\<])",
               "name": "keyword.control.anchor.perl"
             },
             {
@@ -195,9 +195,9 @@
     },
     {
       "applyEndPatternLast": 1,
-      "begin": "(?<!\\{|\\+|-)\\b(?=m\\s*[^\\sa-zA-Z0-9])",
+      "begin": "(?<!\\{|\\+|\\-)\\b(?=m\\s*[^\\sa-zA-Z0-9])",
       "comment": "string.regexp.find-m.perl",
-      "end": "((([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,#{})]|\\s*$))",
+      "end": "((([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,\\#\\{\\}\\)]|\\s*$))",
       "endCaptures": {
         "1": {
           "name": "string.regexp.find-m.perl"
@@ -325,7 +325,7 @@
           ]
         },
         {
-          "begin": "\\G(?<!\\{|\\+|-)(m)(?!_)\\s*([^\\sa-zA-Z0-9'{\\[(<])",
+          "begin": "\\G(?<!\\{|\\+|\\-)(m)(?!_)\\s*([^\\sa-zA-Z0-9'\\{\\[\\(\\<])",
           "captures": {
             "0": {
               "name": "punctuation.definition.string.perl"
@@ -339,7 +339,7 @@
           "patterns": [
             {
               "comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
-              "match": "\\$(?=[^\\sa-zA-Z0-9'{\\[(<])",
+              "match": "\\$(?=[^\\sa-zA-Z0-9'\\{\\[\\(\\<])",
               "name": "keyword.control.anchor.perl"
             },
             {
@@ -365,7 +365,7 @@
               "patterns": [
                 {
                   "comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
-                  "match": "\\$(?=[^\\s\\w'{\\[(<])",
+                  "match": "\\$(?=[^\\s\\w'\\{\\[\\(\\<])",
                   "name": "keyword.control.anchor.perl"
                 },
                 {
@@ -382,9 +382,9 @@
     },
     {
       "applyEndPatternLast": 1,
-      "begin": "\\b(?=(?<!\\&)(s)(\\s+\\S|\\s*[;\\,{}()\\[<]|$))",
+      "begin": "\\b(?=(?<!\\&)(s)(\\s+\\S|\\s*[;\\,\\{\\}\\(\\)\\[<]|$))",
       "comment": "string.regexp.replace.perl",
-      "end": "((([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,{})\\]>]|\\s*$))",
+      "end": "((([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,\\{\\}\\)\\]>]|\\s*$))",
       "endCaptures": {
         "1": {
           "name": "string.regexp.replace.perl"
@@ -605,9 +605,9 @@
       ]
     },
     {
-      "begin": "\\b(?=s([^\\sa-zA-Z0-9\\[({<]).*\\1([egimosxradlupcn]*)([})\\;\\,]|\\s+))",
+      "begin": "\\b(?=s([^\\sa-zA-Z0-9\\[({<]).*\\1([egimosxradlupcn]*)([\\}\\)\\;\\,]|\\s+))",
       "comment": "string.regexp.replaceXXX",
-      "end": "((([egimosxradlupcn]*)))(?=([})\\;\\,]|\\s+|\\s*$))",
+      "end": "((([egimosxradlupcn]*)))(?=([\\}\\)\\;\\,]|\\s+|\\s*$))",
       "endCaptures": {
         "1": {
           "name": "string.regexp.replace.perl"
@@ -754,7 +754,7 @@
         }
       },
       "contentName": "string.regexp.find.perl",
-      "end": "((\\1([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,#{})]|\\s*$))",
+      "end": "((\\1([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,\\#\\{\\}\\)]|\\s*$))",
       "endCaptures": {
         "1": {
           "name": "string.regexp.find.perl"
@@ -816,7 +816,7 @@
           "name": "storage.type.method.perl"
         }
       },
-      "match": "\\b(sub)(?:\\s+([-a-zA-Z0-9_]+))?\\s*(?:\\([$\\@\\*;]*\\))?[^\\w{]",
+      "match": "\\b(sub)(?:\\s+([-a-zA-Z0-9_]+))?\\s*(?:\\([\\$\\@\\*;]*\\))?[^\\w\\{]",
       "name": "meta.function.perl"
     },
     {
@@ -898,7 +898,7 @@
       "name": "storage.modifier.perl"
     },
     {
-      "match": "(?<!\\w)-[rwxoRWXOezsfdlpSbctugkTBMAC]\\b",
+      "match": "(?<!\\w)\\-[rwxoRWXOezsfdlpSbctugkTBMAC]\\b",
       "name": "keyword.operator.filetest.perl"
     },
     {
@@ -913,7 +913,7 @@
       "include": "#heredoc"
     },
     {
-      "begin": "\\bqq\\s*([^({\\[<\\w\\s])",
+      "begin": "\\bqq\\s*([^\\(\\{\\[\\<\\w\\s])",
       "beginCaptures": {
         "0": {
           "name": "punctuation.definition.string.begin.perl"
@@ -936,7 +936,7 @@
       ]
     },
     {
-      "begin": "\\bqx\\s*([^'({\\[<\\w\\s])",
+      "begin": "\\bqx\\s*([^'\\(\\{\\[\\<\\w\\s])",
       "beginCaptures": {
         "0": {
           "name": "punctuation.definition.string.begin.perl"
@@ -1002,7 +1002,7 @@
       ]
     },
     {
-      "begin": "(?<!->)\\bqw?\\s*([^({\\[<\\w\\s])",
+      "begin": "(?<!->)\\bqw?\\s*([^\\(\\{\\[\\<\\w\\s])",
       "beginCaptures": {
         "0": {
           "name": "punctuation.definition.string.begin.perl"
@@ -1139,13 +1139,13 @@
       ]
     },
     {
-      "begin": "\\bqq\\s*<",
+      "begin": "\\bqq\\s*\\<",
       "beginCaptures": {
         "0": {
           "name": "punctuation.definition.string.begin.perl"
         }
       },
-      "end": ">",
+      "end": "\\>",
       "endCaptures": {
         "0": {
           "name": "punctuation.definition.string.end.perl"
@@ -1243,13 +1243,13 @@
       ]
     },
     {
-      "begin": "\\bqx\\s*<",
+      "begin": "\\bqx\\s*\\<",
       "beginCaptures": {
         "0": {
           "name": "punctuation.definition.string.begin.perl"
         }
       },
-      "end": ">",
+      "end": "\\>",
       "endCaptures": {
         "0": {
           "name": "punctuation.definition.string.end.perl"
@@ -1329,13 +1329,13 @@
       ]
     },
     {
-      "begin": "\\bqw?\\s*<",
+      "begin": "\\bqw?\\s*\\<",
       "beginCaptures": {
         "0": {
           "name": "punctuation.definition.string.begin.perl"
         }
       },
-      "end": ">",
+      "end": "\\>",
       "endCaptures": {
         "0": {
           "name": "punctuation.definition.string.end.perl"
@@ -1444,7 +1444,7 @@
           "name": "constant.character.escape.perl"
         },
         {
-          "match": "\\\\N\\{[^}]*\\}",
+          "match": "\\\\N\\{[^\\}]*\\}",
           "name": "constant.character.escape.perl"
         },
         {
@@ -1784,7 +1784,7 @@
           }
         },
         {
-          "begin": "((((<<(~)?) *\\\\)((?![=\\d$( ])[^;,'\"`\\s)]*)()))(.*)\\n?",
+          "begin": "((((<<(~)?) *\\\\)((?![=\\d\\$\\( ])[^;,'\"`\\s\\)]*)()))(.*)\\n?",
           "beginCaptures": {
             "1": {
               "name": "string.unquoted.heredoc.raw.perl"
@@ -2496,7 +2496,7 @@
           ]
         },
         {
-          "begin": "((((<<(~)?) *)((?![=\\d$( ])[^;,'\"`\\s)]*)()))(.*)\\n?",
+          "begin": "((((<<(~)?) *)((?![=\\d\\$\\( ])[^;,'\"`\\s\\)]*)()))(.*)\\n?",
           "beginCaptures": {
             "1": {
               "name": "string.unquoted.heredoc.interpolated.perl"
@@ -2739,7 +2739,7 @@
       "patterns": [
         {
           "comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
-          "match": "\\$(?=[^\\s\\w'{\\[(<])",
+          "match": "\\$(?=[^\\s\\w'\\{\\[\\(\\<])",
           "name": "keyword.control.anchor.perl"
         },
         {
@@ -2922,7 +2922,7 @@
               "name": "punctuation.definition.variable.perl"
             }
           },
-          "match": "(\\$)[_ab\\*\\.\\/\\|,\\\\;#%=\\-~^:?!$<>()\\[\\]@](?![A-Za-z0-9_])",
+          "match": "(\\$)[_ab\\*\\.\\/\\|,\\\\;#%=\\-~^:?!\\$<>\\(\\)\\[\\]@](?![A-Za-z0-9_])",
           "name": "variable.other.predefined.perl"
         },
         {
@@ -2931,7 +2931,7 @@
               "name": "punctuation.definition.variable.perl"
             }
           },
-          "match": "(\\$)\\d+(?![A-Za-z0-9_])",
+          "match": "(\\$)[0-9]+(?![A-Za-z0-9_])",
           "name": "variable.other.subpattern.perl"
         },
         {
@@ -2940,7 +2940,7 @@
               "name": "punctuation.definition.variable.perl"
             }
           },
-          "match": "([$\\@\\%](#)?)([a-zA-Zx7f-xff$]|::)([a-zA-Z0-9_x7f-xff$]|::)*\\b",
+          "match": "([\\$\\@\\%](#)?)([a-zA-Zx7f-xff\\$]|::)([a-zA-Z0-9_x7f-xff\\$]|::)*\\b",
           "name": "variable.other.readwrite.global.perl"
         },
         {
@@ -2952,7 +2952,7 @@
               "name": "punctuation.definition.variable.perl"
             }
           },
-          "match": "(\\$\\{)(?:[a-zA-Zx7f-xff$]|::)(?:[a-zA-Z0-9_x7f-xff$]|::)*(\\})",
+          "match": "(\\$\\{)(?:[a-zA-Zx7f-xff\\$]|::)(?:[a-zA-Z0-9_x7f-xff\\$]|::)*(\\})",
           "name": "variable.other.readwrite.global.perl"
         },
         {
@@ -2961,7 +2961,7 @@
               "name": "punctuation.definition.variable.perl"
             }
           },
-          "match": "([$\\@\\%](#)?)[0-9_]\\b",
+          "match": "([\\$\\@\\%](#)?)[0-9_]\\b",
           "name": "variable.other.readwrite.global.special.perl"
         }
       ]