… | … | ||
---|---|---|---|
1688 | { | 1688 | { |
1689 | api_cede (); | 1689 | api_cede (); |
1690 | self->next = now + self->every; | 1690 | self->next = now + self->every; |
1691 | } | 1691 | } |
1692 | 1692 | ||
1693 | return PerlIOBuf_flush (f); | 1693 | return PerlIOBuf_flush (aTHX_ f); |
1694 | } | 1694 | } |
1695 | 1695 | ||
1696 | static PerlIO_funcs PerlIO_cede = | 1696 | static PerlIO_funcs PerlIO_cede = |
1697 | { | 1697 | { |
1698 | sizeof(PerlIO_funcs), | 1698 | sizeof(PerlIO_funcs), |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |