[ViewVC] Diff of: cvs/cvsroot/Coro/myhttpd/httpd.pl

Comparing cvsroot/Coro/myhttpd/httpd.pl (file contents):
Revision 1.83 by root, Sun Dec 3 17:49:22 2006 UTC vs.
Revision 1.84 by root, Sat Dec 8 21:01:16 2007 UTC

 use Coro;
 use Coro::Semaphore;
-use Coro::Event;
+use Coro::EV;
 use Coro::Socket;
 use Coro::Signal;
 use Coro::AIO ();
 use HTTP::Date;
 our $HTTP_NOW;
 our $ERROR_LOG;
 our $ACCESS_LOG;
-Event->timer(interval => 1, hard => 1, cb => sub {
+our $update_time = EV::periodic 0, 1, undef, sub {
    $NOW = time;
    $HTTP_NOW = time2str $NOW;
-})->now;
+};
+$update_time->invoke;
 if ($ERROR_LOG) {
    use IO::Handle;
    open $errorlog, ">>$ERROR_LOG"
      or die "$ERROR_LOG: $!";
 use Convert::Scalar 'weaken';
 use IO::AIO;
 IO::AIO::min_parallel $::AIO_PARALLEL;
-Event->io (fd => IO::AIO::poll_fileno,
+our $AIO_WATCHER = EV::io IO::AIO::poll_fileno, EV::READ, \&IO::AIO::poll_cb;
-           poll => 'r', async => 1,
-           cb => \&IO::AIO::poll_cb);
 our %conn; # $conn{ip}{self} => connobj
 our %uri;  # $uri{ip}{uri}{self}
 our %blocked;
 our %mimetype;
    for (keys %blocked) {
       delete $blocked{$_} unless $blocked{$_}[0] > $::NOW;
    }
 }
-Event->timer (interval => 60, cb => \&prune_caches);
+our $PRUNE_WATCHER = EV::timer 60, 60, \&prune_caches;
 sub slog {
    my $self = shift;
    main::slog($_[0], "$self->{remote_id}> $_[1]");
 }

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