Perl HTML-Template.rb in ver-2010.08

- old
+ new

@@ -1,24 +1,24 @@
 # Encoding: UTF-8
 
 {fileTypes: ["tmpl"],
  firstLineMatch: "<(?i:TMPL)_.+?>",
  foldingStartMarker: 
-  /(<(?i:(head|table|tr|div|style|script|ul|ol|form|dl))\b.*?>|^ *<(?i:TMPL_(?:LOOP|UNLESS|IF))\b(?!.*<\/(?i:TMPL_(?:LOOP|UNLESS|IF))>))/,
+  /(?<_1><(?i:(?<_2>head|table|tr|div|style|script|ul|ol|form|dl))\b.*?>|^ *<(?i:TMPL_(?:LOOP|UNLESS|IF))\b(?!.*<\/(?i:TMPL_(?:LOOP|UNLESS|IF))>))/,
  foldingStopMarker: 
-  /(<\/(?i:(head|table|tr|div|style|script|ul|ol|form|dl))>|^ *<\/(?i:TMPL_(?:LOOP|UNLESS|IF)) *>)/,
- keyEquivalent: /^~H/,
+  /(?<_1><\/(?i:(?<_2>head|table|tr|div|style|script|ul|ol|form|dl))>|^ *<\/(?i:TMPL_(?:LOOP|UNLESS|IF)) *>)/,
+ keyEquivalent: "^~H",
  name: "Perl HTML-Template",
  patterns: [{include: "#tmpl-container-tag"}, {include: "text.html.basic"}],
  repository: 
   {:"embedded-code" => {},
    entities: 
     {patterns: 
       [{captures: 
          {1 => {name: "punctuation.definition.constant.html"},
           3 => {name: "punctuation.definition.constant.html"}},
-        match: /(&)([a-zA-Z0-9]+|#[0-9]+|#x[0-9a-fA-F]+)(;)/,
+        match: /(?<_1>&)(?<_2>[a-zA-Z0-9]+|#[0-9]+|#x[0-9a-fA-F]+)(?<_3>;)/,
         name: "constant.character.entity.html"},
        {match: /&/, name: "invalid.illegal.bad-ampersand.html"}]},
    :"html-template-stuff" => 
     {patterns: 
       [{match: /\b(?i:NAME|ESCAPE|DEFAULT|)\b/,
@@ -26,10 +26,10 @@
        {match: /=/, name: "punctuation.separator.key-value.html-template"},
        {include: "#string-double-quoted"},
        {include: "#string-single-quoted"},
        {include: "#keyword"}]},
    keyword: 
-    {match: /\b([A-Za-z0-9_]+)/, name: "string.unquoted.html-template"},
+    {match: /\b(?<_1>[A-Za-z0-9_]+)/, name: "string.unquoted.html-template"},
    :"string-double-quoted" => 
     {begin: /"/,
      beginCaptures: 
       {0 => {name: "punctuation.definition.string.begin.html-template"}},
      end: "\"",