… | |
… | |
2873 | object_thawer *self; |
2873 | object_thawer *self; |
2874 | sv_to (sv, self); |
2874 | sv_to (sv, self); |
2875 | delete self; |
2875 | delete self; |
2876 | |
2876 | |
2877 | void |
2877 | void |
2878 | tags (object_thawer *self) |
2878 | extract_tags (object_thawer *self) |
2879 | CODE: |
2879 | CODE: |
2880 | while (self->kw != KW_EOF) |
2880 | while (self->kw != KW_EOF) |
2881 | { |
2881 | { |
|
|
2882 | coroapi::cede_to_tick_every (5000); |
|
|
2883 | |
2882 | if (self->kw == KW_tag) |
2884 | if (self->kw == KW_tag) |
2883 | XPUSHs (sv_2mortal (to_sv (self->get_str ()))); |
2885 | XPUSHs (sv_2mortal (to_sv (self->get_str ()))); |
2884 | |
2886 | |
2885 | self->skip (); |
2887 | self->skip (); |
2886 | } |
2888 | } |