[ViewVC] Diff of: cvs/JSON-XS/XS.xs

Comparing JSON-XS/XS.xs (file contents):
Revision 1.77 by root, Tue Mar 25 06:37:38 2008 UTC vs.
Revision 1.81 by root, Wed Mar 26 01:40:43 2008 UTC

 static void
 encode_hv (enc_t *enc, HV *hv)
 {
   HE *he;
-  int count;
   if (enc->indent >= enc->maxdepth)
     croak ("data structure too deep (hit recursion limit)");
   encode_ch (enc, '{');
 SV *incr_text (JSON *self)
 	ATTRS: lvalue
 	CODE:
 {
         if (self->incr_pos)
-          croak ("incr_text can only be called after a successful incr_parse call in scalar context %d", self->incr_pos);//D
+          croak ("incr_text can only be called after a successful incr_parse call in scalar context");
         RETVAL = self->incr_text ? SvREFCNT_inc (self->incr_text) : &PL_sv_undef;
 }
 	OUTPUT:
         RETVAL
+void incr_skip (JSON *self)
+	CODE:
+{
+        if (self->incr_pos)
+          {
+            sv_chop (self->incr_text, SvPV_nolen (self->incr_text) + self->incr_pos);
+            self->incr_pos  = 0;
+            self->incr_nest = 0;
+            self->incr_mode = 0;
+          }
+}
 void DESTROY (JSON *self)
 	CODE:
         SvREFCNT_dec (self->cb_sk_object);
         SvREFCNT_dec (self->cb_object);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines