| … | |
… | |
| 83 | or (POSIX::lseek $FD_I, 0, 1) != -1 |
83 | or (POSIX::lseek $FD_I, 0, 1) != -1 |
| 84 | or $! != Errno::EBADF |
84 | or $! != Errno::EBADF |
| 85 | or die; |
85 | or die; |
| 86 | } while --$cnt; |
86 | } while --$cnt; |
| 87 | 1 |
87 | 1 |
| 88 | } or AE::log crit => "file descriptor $FD_I registered with AnyEvent but prematurely closed, event loop might malfunction.\n"; |
88 | } or AE::log crit => "File descriptor $FD_I registered with AnyEvent but prematurely closed, event loop might malfunction."; |
| 89 | }; |
89 | }; |
| 90 | |
90 | |
| 91 | sub io { |
91 | sub io { |
| 92 | my $class = shift; |
92 | my $class = shift; |
| 93 | my (%arg, $fh, $cb, $fd) = @_; |
93 | my (%arg, $fh, $cb, $fd) = @_; |
| … | |
… | |
| 231 | and croak "AnyEvent->now wrongly called with paramaters"; |
231 | and croak "AnyEvent->now wrongly called with paramaters"; |
| 232 | |
232 | |
| 233 | $class->SUPER::now (@_) |
233 | $class->SUPER::now (@_) |
| 234 | } |
234 | } |
| 235 | |
235 | |
| 236 | 1; |
|
|
| 237 | |
|
|
| 238 | =head1 AUTHOR |
236 | =head1 AUTHOR |
| 239 | |
237 | |
| 240 | Marc Lehmann <schmorp@schmorp.de> |
238 | Marc Lehmann <schmorp@schmorp.de> |
| 241 | http://home.schmorp.de/ |
239 | http://home.schmorp.de/ |
| 242 | |
240 | |
| 243 | =cut |
241 | =cut |
| 244 | |
242 | |
|
|
243 | 1 |
|
|
244 | |
