improved Mojo::IOLoop performance by reducing stream timeout precisio…

…n from 0.025 seconds to 0.5
mojolicious · Jul 7, 2012 · c150e3a · c150e3a
1 parent f557ca0
commit c150e3a
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -1,4 +1,8 @@
 
+3.04  2012-07-07
+  - Improved Mojo::IOLoop performance by reducing stream timeout precision
+    from 0.025 seconds to 0.5.
+
 3.03  2012-07-06
   - Improved load balancing between Hypnotoad worker processes.
   - Improved Hypnotoad log messages.

diff --git a/lib/Mojo/IOLoop/Stream.pm b/lib/Mojo/IOLoop/Stream.pm
@@ -54,7 +54,7 @@ sub start {
   my $reactor = $self->reactor;
   weaken $self;
   $self->{timer} ||= $reactor->recurring(
-    0.025 => sub {
+    0.5 => sub {
       return unless $self && (my $t = $self->timeout);
       $self->emit_safe('timeout')->close if (time - ($self->{active})) >= $t;
     }

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -34,7 +34,7 @@ has static   => sub { Mojolicious::Static->new };
 has types    => sub { Mojolicious::Types->new };
 
 our $CODENAME = 'Rainbow';
-our $VERSION  = '3.03';
+our $VERSION  = '3.04';
 
 # "These old doomsday devices are dangerously unstable.
 #  I'll rest easier not knowing where they are."

diff --git a/t/mojo/ioloop_tls.t b/t/mojo/ioloop_tls.t
@@ -98,7 +98,7 @@ $loop->client(
     $stream->on(read => sub { $client .= pop });
   }
 );
-$loop->timer(1 => sub { shift->stop });
+$loop->timer(2 => sub { shift->stop });
 $loop->start;
 is $server,       'tset123', 'right content';
 is $client,       'test321', 'right content';
@@ -191,7 +191,7 @@ $loop->client(
     $stream->on(read => sub { $client .= pop });
   }
 );
-$loop->timer(1 => sub { shift->stop });
+$loop->timer(2 => sub { shift->stop });
 $loop->start;
 is $server,       'tset123', 'right content';
 is $client,       'test321', 'right content';