… | … | ||
---|---|---|---|
81 | __PACKAGE__ | 81 | __PACKAGE__ |
82 | } | 82 | } |
83 | 83 | ||
84 | sub FILL { | 84 | sub FILL { |
85 | Coro::cede; | 85 | Coro::cede; |
86 | read $_[1], my $buf, 512; | 86 | read $_[1], my $buf, 512 |
87 | or return undef; | ||
87 | $buf | 88 | $buf |
88 | } | 89 | } |
89 | 90 | ||
90 | sub WRITE { | 91 | sub WRITE { |
91 | Coro::cede; | 92 | Coro::cede; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |