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

---
 doc/ScintillaHistory.html | 4 ++++
 lexers/LexPerl.cxx        | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/doc/ScintillaHistory.html b/doc/ScintillaHistory.html
index 61261ceb0..38faf070c 100644
--- a/doc/ScintillaHistory.html
+++ b/doc/ScintillaHistory.html
@@ -567,6 +567,10 @@
 	SciTE enables use of SCI_ commands in user.context.menu.
 	</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 34f525586..af8a580d3 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