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

Comparing JSON-XS/XS.xs (file contents):
Revision 1.78 by root, Tue Mar 25 19:31:02 2008 UTC vs.
Revision 1.79 by root, Tue Mar 25 23:00:31 2008 UTC

 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 || !INCR_DONE (self))
+          croak ("incr_text can only be called after an unsuccessful incr_parse call in scalar context");//D
+        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