From 3995a7a46d6cef2b9673bf83a85904a995f37064 Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Fri, 5 Jan 2001 23:45:00 +0000
Subject: Patch from Eric to fix bug in file ops.

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

(limited to 'src')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index 2d06d9854..cdee673f2 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -315,7 +315,7 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 				sooked[sookedpos] = '\0';
 			} else if (ch == '-'
 			           && isSingleCharOp(chNext)
-			           && !isalnum((chNext2 = styler.SafeGetCharAt(2)))) {
+			           && !isalnum((chNext2 = styler.SafeGetCharAt(i+2)))) {
 				styler.ColourTo(i - 1, state);
 				styler.ColourTo(i + 1, SCE_PL_WORD);
 				state = SCE_PL_DEFAULT;
-- 
cgit v1.2.3