JSON.lua.patch

--- JSON.lua.orig	Ïí ×åð 18 12:33:36 2012
+++ JSON.lua	Ïí ×åð 18 12:29:11 2012
@@ -150,7 +150,14 @@
 local isArray  = { __tostring = function() return "JSON array"  end }    isArray.__index  = isArray
 local isObject = { __tostring = function() return "JSON object" end }    isObject.__index = isObject
 
+local isNull = { __tostring = function() return "JSON null" end } isNull.__index = isNull
 
+OBJDEF.NULL = { }
+
+function OBJDEF:newNull()
+   return setmetatable(OBJDEF.NULL, isNull)
+end
+
 function OBJDEF:newArray(tbl)
    return setmetatable(tbl or {}, isArray)
 end
@@ -431,10 +438,12 @@
    end
 
    local text_len = text:len()
+   local tableIdx = 1
    while i <= text_len do
       local val, new_i = grok_one(self, text, i)
 
-      table.insert(VALUE, val)
+      table.insert(VALUE, tableIdx, val)
+	  tableIdx = tableIdx + 1
 
       i = skip_whitespace(text, new_i)
 
@@ -481,7 +490,7 @@
       return false, start + 5
 
    elseif text:find('^null', start) then
-      return nil, start + 4
+      return self:newNull(), start + 4
 
    else
       self:onDecodeError("can't parse JSON", text, start, etc)