From d3f8e9aaa4612971f830fb0fa260a88a7b1bd422 Mon Sep 17 00:00:00 2001
From: Zufu Liu <unknown>
Date: Thu, 26 Sep 2019 12:19:18 +1000
Subject: Backport: Feature [feature-requests:#1306] Fold qw arrays.

Backport of changeset 7688:72933772703e.
---
 lexers/LexPerl.cxx | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lexers')

diff --git a/lexers/LexPerl.cxx b/lexers/LexPerl.cxx
index 3bf205f70..9b1dc761a 100644
--- a/lexers/LexPerl.cxx
+++ b/lexers/LexPerl.cxx
@@ -1701,6 +1701,12 @@ void SCI_METHOD LexerPerl::Fold(Sci_PositionU startPos, Sci_Position length, int
 			} else if (ch == ']') {
 				levelCurrent--;
 			}
+		} else if (style == SCE_PL_STRING_QW) {
+			// qw
+			if (stylePrevCh != style)
+				levelCurrent++;
+			else if (styleNext != style)
+				levelCurrent--;
 		}
 		// POD folding
 		if (options.foldPOD && atLineStart) {
-- 
cgit v1.2.3