… | |
… | |
1828 | RETVAL |
1828 | RETVAL |
1829 | |
1829 | |
1830 | void incr_skip (JSON *self) |
1830 | void incr_skip (JSON *self) |
1831 | CODE: |
1831 | CODE: |
1832 | { |
1832 | { |
1833 | if (!self->incr_pos || !INCR_DONE (self)) |
|
|
1834 | croak ("incr_text can only be called after an unsuccessful incr_parse call in scalar context");//D |
|
|
1835 | |
|
|
1836 | sv_chop (self->incr_text, SvPV_nolen (self->incr_text) + self->incr_pos); |
1833 | sv_chop (self->incr_text, SvPV_nolen (self->incr_text) + self->incr_pos); |
1837 | self->incr_pos = 0; |
1834 | self->incr_pos = 0; |
1838 | self->incr_nest = 0; |
1835 | self->incr_nest = 0; |
1839 | self->incr_mode = 0; |
1836 | self->incr_mode = 0; |
1840 | } |
1837 | } |