--- JSON-XS/XS.xs	2007/08/27 01:49:01	1.63
+++ JSON-XS/XS.xs	2007/10/13 01:55:31	1.65
@@ -314,28 +314,31 @@
   if (enc->indent >= enc->maxdepth)
     croak ("data structure too deep (hit recursion limit)");
 
-  encode_ch (enc, '['); encode_nl (enc);
-  ++enc->indent;
-
-  for (i = 0; i <= len; ++i)
+  encode_ch (enc, '[');
+  
+  if (len >= 0)
     {
-      SV **svp = av_fetch (av, i, 0);
+      encode_nl (enc); ++enc->indent;
 
-      encode_indent (enc);
+      for (i = 0; i <= len; ++i)
+        {
+          SV **svp = av_fetch (av, i, 0);
 
-      if (svp)
-        encode_sv (enc, *svp);
-      else
-        encode_str (enc, "null", 4, 0);
+          encode_indent (enc);
 
-      if (i < len)
-        encode_comma (enc);
-    }
+          if (svp)
+            encode_sv (enc, *svp);
+          else
+            encode_str (enc, "null", 4, 0);
 
-  encode_nl (enc);
+          if (i < len)
+            encode_comma (enc);
+        }
 
-  --enc->indent;
-  encode_indent (enc); encode_ch (enc, ']');
+      encode_nl (enc); --enc->indent; encode_indent (enc);
+    }
+  
+  encode_ch (enc, ']');
 }
 
 static void
@@ -398,7 +401,7 @@
   if (enc->indent >= enc->maxdepth)
     croak ("data structure too deep (hit recursion limit)");
 
-  encode_ch (enc, '{'); encode_nl (enc); ++enc->indent;
+  encode_ch (enc, '{');
 
   // for canonical output we have to sort by keys first
   // actually, this is mostly due to the stupid so-called
@@ -461,6 +464,8 @@
               LEAVE;
             }
 
+          encode_nl (enc); ++enc->indent;
+
           while (count--)
             {
               encode_indent (enc);
@@ -471,28 +476,34 @@
               if (count)
                 encode_comma (enc);
             }
+
+          encode_nl (enc); --enc->indent; encode_indent (enc);
         }
     }
   else
     {
       if (hv_iterinit (hv) || SvMAGICAL (hv))
         if ((he = hv_iternext (hv)))
-          for (;;)
-            {
-              encode_indent (enc);
-              encode_hk (enc, he);
-              encode_sv (enc, expect_false (SvMAGICAL (hv)) ? hv_iterval (hv, he) : HeVAL (he));
+          {
+            encode_nl (enc); ++enc->indent;
 
-              if (!(he = hv_iternext (hv)))
-                break;
+            for (;;)
+              {
+                encode_indent (enc);
+                encode_hk (enc, he);
+                encode_sv (enc, expect_false (SvMAGICAL (hv)) ? hv_iterval (hv, he) : HeVAL (he));
 
-              encode_comma (enc);
-            }
-    }
+                if (!(he = hv_iternext (hv)))
+                  break;
 
-  encode_nl (enc);
+                encode_comma (enc);
+              }
+
+            encode_nl (enc); --enc->indent; encode_indent (enc);
+          }
+    }
 
-  --enc->indent; encode_indent (enc); encode_ch (enc, '}');
+  encode_ch (enc, '}');
 }
 
 // encode objects, arrays and special \0=false and \1=true values.
@@ -702,18 +713,35 @@
 } dec_t;
 
 inline void
+decode_comment (dec_t *dec)
+{
+  // only '#'-style comments allowed a.t.m.
+
+  while (*dec->cur && *dec->cur != 0x0a && *dec->cur != 0x0d)
+    ++dec->cur;
+}
+
+inline void
 decode_ws (dec_t *dec)
 {
   for (;;)
     {
       char ch = *dec->cur;
 
-      if (ch > 0x20
-          || (ch != 0x20 && ch != 0x0a && ch != 0x0d && ch != 0x09)) 
-        break;
-
-      if (ch == '#' && dec->json.flags & F_RELAXED)
-        ++dec->cur;
+      if (ch > 0x20)
+        {
+          if (expect_false (ch == '#'))
+            {
+              if (dec->json.flags & F_RELAXED)
+                decode_comment (dec);
+              else
+                break;
+            }
+          else
+            break;
+        }
+      else if (ch != 0x20 && ch != 0x0a && ch != 0x0d && ch != 0x09)
+        break; // parse error, but let higher level handle it, gives better error messages
 
       ++dec->cur;
     }