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.
---
 doc/ScintillaHistory.html | 4 ++++
 lexers/LexPerl.cxx        | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/doc/ScintillaHistory.html b/doc/ScintillaHistory.html
index 73e335699..2cb48d15f 100644
--- a/doc/ScintillaHistory.html
+++ b/doc/ScintillaHistory.html
@@ -553,6 +553,10 @@
 	Released 30 Aug 2019.
 	</li>
  	<li>
+	Perl folder folds qw arrays.
+	<a href="https://sourceforge.net/p/scintilla/feature-requests/1306/">Feature #1306</a>.
+	</li>
+ 	<li>
 	On Win32, stop the IME candidate window moving unnecessarily and position it better.<br />
 	Stop candidate window overlapping composition text and taskbar.<br />
 	Position candidate window closer to composition text.<br />
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