ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/State.xs
(Generate patch)

Comparing Coro/Coro/State.xs (file contents):
Revision 1.246 by root, Wed Sep 24 21:20:05 2008 UTC vs.
Revision 1.247 by root, Wed Sep 24 21:31:29 2008 UTC

… …
1662static IV 1662static IV
1663PerlIOCede_pushed (pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) 1663PerlIOCede_pushed (pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
1664{ 1664{
1665 PerlIOCede *self = PerlIOSelf (f, PerlIOCede); 1665 PerlIOCede *self = PerlIOSelf (f, PerlIOCede);
1666 1666
1667 self->every = SvNV (arg); 1667 self->every = SvCUR (arg) ? SvNV (arg) : 0.01;
1668 self->next = nvtime () + self->every; 1668 self->next = nvtime () + self->every;
1669 1669
1670 return PerlIOBuf_pushed (aTHX_ f, mode, Nullsv, tab); 1670 return PerlIOBuf_pushed (aTHX_ f, mode, Nullsv, tab);
1671} 1671}
1672 1672

Diff Legend

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