From 197c1133dbc801270e7ac7ecfb599f1949a0326f Mon Sep 17 00:00:00 2001
From: gamemanj <gamemanj@hotmail.co.uk>
Date: Tue, 31 Mar 2015 11:00:25 +0100
Subject: [PATCH] Fixed lua pattern error interpreting () incorrectly

...Well, that was stupid.
---
 mesecons_luacontroller/init.lua | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mesecons_luacontroller/init.lua b/mesecons_luacontroller/init.lua
index 9331b22..7e93d04 100644
--- a/mesecons_luacontroller/init.lua
+++ b/mesecons_luacontroller/init.lua
@@ -398,14 +398,14 @@ local function lexLua(code)
         return nil --unfinished string
     end
     function lexElements.blockcomment(str)
-        local a=str:match("^--%[%[")
+        local a=str:match("^%-%-%[%[")
         if not a then return nil end
-        local s=str:find("--%]%]")
+        local s=str:find("%-%-%]%]")
         if not s then return nil end
         return str:sub(1,s+3)
     end
     function lexElements.linecomment(str)
-        return str:match("^--[^\r\n]+")
+        return str:match("^%-%-[^\r\n]+")
     end
     local lexElementsOrder={"keyword","whitespace","string","blockcomment","linecomment","cleanup"}
     local lexResults={}
@@ -470,6 +470,7 @@ local function code_prohibited(code)
         end
         rcode=rcode..v[2]
     end
+    print(rcode)
     return rcode
 end