Rewrite TS perl query, fix #334

andymass · Dec 19, 2023 · 2550178 · 2550178
1 parent 3f4fe49
commit 2550178
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/after/queries/perl/matchup.scm b/after/queries/perl/matchup.scm
@@ -1,12 +1,11 @@
-; inherits: quote
-
-(if_statement
+(conditional_statement
     "if" @open.if
-    "elsif"? @mid.if.1
-    "else"? @mid.if.2
 ) @scope.if
 
-(function_definition
+(elsif "elsif"? @mid.if.1)
+(else "else"? @mid.if.2)
+
+(subroutine_declaration_statement
     "sub" @open.fun
 ) @scope.fun
 (return_expression "return" @mid.fun.1)