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

Comparing JSON-XS/XS.xs (file contents):
Revision 1.85 by root, Sat Apr 5 18:15:46 2008 UTC vs.
Revision 1.87 by root, Tue Jun 3 06:43:45 2008 UTC

 INLINE void
 shrink (SV *sv)
 {
   sv_utf8_downgrade (sv, 1);
   if (SvLEN (sv) > SvCUR (sv) + 1)
     {
 #ifdef SvPV_shrink_to_cur
       SvPV_shrink_to_cur (sv);
 #elif defined (SvPV_renew)
   SV *sv;
   SvGETMAGIC (string);
   SvUPGRADE (string, SVt_PV);
+  /* work around a bug in perl 5.10, which causes SvCUR to fail an
+   * assertion with -DDEBUGGING, although SvCUR is documented to
+   * return the xpv_cur field which certainly exists after upgrading.
+   * according to nicholas clark, calling SvPOK fixes this.
+   */
+  SvPOK (string);
   if (SvCUR (string) > json->max_size && json->max_size)
     croak ("attempted decode of JSON text of %lu bytes size, but max_size is set to %lu",
            (unsigned long)SvCUR (string), (unsigned long)json->max_size);
   if (json->flags & F_UTF8)
             self->incr_nest = 0;
             self->incr_mode = 0;
           }
 }
+void incr_reset (JSON *self)
+	CODE:
+{
+	SvREFCNT_dec (self->incr_text);
+        self->incr_text = 0;
+        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);
         SvREFCNT_dec (self->incr_text);

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