[Perl] Fix upper-case labels (sublimehq#1874)

deathaxe · Feb 19, 2019 · 3ca04a0 · 3ca04a0
1 parent c637e9c
commit 3ca04a0
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/Perl/Perl.sublime-syntax b/Perl/Perl.sublime-syntax
@@ -268,10 +268,11 @@ contexts:
   expressions:
     - include: blocks
     - include: groups
+    - include: quoted-like
+    - include: label
     - include: constants
     - include: class
     - include: operators
-    - include: quoted-like
     - include: control
     - include: sub
     - include: variables
@@ -616,7 +617,6 @@ contexts:
     - match: \b(?:do|for|foreach|until|while){{break}}
       scope: keyword.control.flow.perl
       push: regexp-pop
-    - include: label
 
   label:
     - match: ({{identifier}})(:)(?!:)

diff --git a/Perl/syntax_test_perl.pl b/Perl/syntax_test_perl.pl
@@ -1290,6 +1290,17 @@ ($arg, $arg)
 #                 ^ punctuation.terminator.statement.perl
   retry::
 # ^^^^^^^ - entity.name.label.perl
+
+  LINE:
+# ^^^^ entity.name.label.perl
+#     ^ punctuation.separator.perl
+
+  LINE:exit -1
+# ^^^^ entity.name.label.perl
+#     ^ punctuation.separator.perl
+#      ^^^^ keyword.other.flow.perl
+#           ^^ constant.numeric.integer.perl
+
   if(exists($curargs{$index}))
 # ^^ keyword.control.conditional.perl
 #   ^ punctuation.section.group.begin.perl