From c5871d9d870c866fea9f271f1a3b3f29049a4793 Mon Sep 17 00:00:00 2001
From: Christian Clason <c.clason@uni-graz.at>
Date: Tue, 25 Nov 2025 10:34:35 +0100
Subject: [PATCH] fix(perl): correct use of supertypes

---
 runtime/queries/perl/highlights.scm | 34 ++++++++++++++++++++++++-----
 1 file changed, 28 insertions(+), 6 deletions(-)

diff --git a/runtime/queries/perl/highlights.scm b/runtime/queries/perl/highlights.scm
index d52baab44..6baee6b9b 100644
--- a/runtime/queries/perl/highlights.scm
+++ b/runtime/queries/perl/highlights.scm
@@ -256,15 +256,37 @@
 ; all post deref sigils highlighted as operators, and the unrolly star is a special char
 (postfix_deref
   [
-    "$"
+    (scalar_deref_expression
+      "$" @operator
+      "*" @character.special)
+    (array_deref_expression
+      "@" @operator
+      "*" @character.special)
+    (arraylen_deref_expression
+      "$#" @operator
+      "*" @character.special)
+    (hash_deref_expression
+      "%" @operator
+      "*" @character.special)
+    (amper_deref_expression
+      "&" @operator
+      "*" @character.special)
+    (glob_deref_expression
+      "*" @operator
+      "*" @character.special)
+  ])
+
+(slices/slice_expression
+  [
+    arrayref: _
+    hashref: _
+  ]
+  [
     "@"
     "%"
-    "*"
-    "$#"
-  ] @operator
-  "*" @character.special)
+  ] @operator)
 
-(slices
+(slices/keyval_expression
   [
     arrayref: _
     hashref: _