From 7f38038656650505d5a04a7f7ae335a1fbf8f0a7 Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Mon, 17 May 2010 02:48:46 +0000
Subject: Fix debug assertions for bug #3000566.

---
 src/LexPerl.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/LexPerl.cxx')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index 0c6603620..bca78f57c 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -1243,7 +1243,7 @@ static void FoldPerlDoc(unsigned int startPos, int length, int, WordList *[],
 				else if (styler.Match(i, "=head"))
 					isPodHeading = true;
 			} else if (style == SCE_PL_DATASECTION) {
-				if (ch == '=' && isalpha(chNext) && levelCurrent == SC_FOLDLEVELBASE)
+				if (ch == '=' && isascii(chNext) && isalpha(chNext) && levelCurrent == SC_FOLDLEVELBASE)
 					levelCurrent++;
 				else if (styler.Match(i, "=cut") && levelCurrent > SC_FOLDLEVELBASE)
 					levelCurrent--;
-- 
cgit v1.2.3