From bba62406571dd4c39a4f74cb7a5ad452f382d03d Mon Sep 17 00:00:00 2001
From: bscan <10503608+bscan@users.noreply.github.com>
Date: Fri, 16 Feb 2024 17:10:39 -0500
Subject: Fixing grammar issue with multi-line defined-or operator // on new
 line

---
 server/perl.tmLanguage.json | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'server')

diff --git a/server/perl.tmLanguage.json b/server/perl.tmLanguage.json
index d0094db..9230a11 100644
--- a/server/perl.tmLanguage.json
+++ b/server/perl.tmLanguage.json
@@ -814,16 +814,22 @@
 			]
 		},
 		{
-			"begin": "(?<=\\(|=|!|\\{|~|&|\\||\\bif|\\bunless|\\band|\\bor|\\bsplit|\\bgrep|^)\\s*((\\/))(?!\\/=)",
+			"begin": "(?<=\\(|=|!|\\{|~|&|\\||\\bif|\\bunless|\\band|\\bor|\\bsplit|\\bgrep)\\s*((\\/))(?!\\/=)|(?<=^)\\s*((\\/))(?!\\/)",
 			"beginCaptures": {
 				"1": {
 					"name": "string.regexp.find.perl"
 				},
 				"2": {
 					"name": "punctuation.definition.string.perl"
+				},
+				"3": {
+					"name": "string.regexp.find.perl"
+				},
+				"4": {
+					"name": "punctuation.definition.string.perl"
 				}
 			},
-			"end": "((\\1([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,\\#\\{\\}\\)\\.]|\\s*$))",
+			"end": "((\\/([egimosxradlupcn]*)))(?=(\\s+\\S|\\s*[;\\,\\#\\{\\}\\)\\.]|\\s*$))",
 			"endCaptures": {
 				"1": {
 					"name": "string.regexp.find.perl"
-- 
cgit v1.2.3