--- JSON-XS/XS.xs 2008/03/26 01:40:43 1.81 +++ JSON-XS/XS.xs 2008/03/26 02:35:45 1.82 @@ -1800,10 +1800,12 @@ { STRLEN offset; - incr_parse (self); - if (!INCR_DONE (self)) - break; + { + incr_parse (self); + if (!INCR_DONE (self)) + break; + } XPUSHs (decode_json (self->incr_text, self, &offset)); @@ -1820,7 +1822,7 @@ CODE: { if (self->incr_pos) - croak ("incr_text can only be called after a successful incr_parse call in scalar context"); + croak ("incr_text can not be called when the incremental parser already started parsing"); RETVAL = self->incr_text ? SvREFCNT_inc (self->incr_text) : &PL_sv_undef; }