fixed license link and added small optimization

mojolicious · May 27, 2012 · 532cc94 · 532cc94
1 parent 3d8a28f
commit 532cc94
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -17,7 +17,7 @@ WriteMakefile(
     requires  => {perl => '5.010001'},
     resources => {
       homepage    => 'http://mojolicio.us',
-      license     => 'http://dev.perl.org/licenses/',
+      license     => 'http://www.opensource.org/licenses/artistic-license-2.0',
       MailingList => 'http://groups.google.com/group/mojolicious',
       repository  => 'http://github.com/kraih/mojo',
       bugtracker  => 'http://github.com/kraih/mojo/issues'

diff --git a/lib/Mojo/IOLoop.pm b/lib/Mojo/IOLoop.pm
@@ -209,7 +209,7 @@ sub _cleaner {
 
       # Graceful shutdown
       $self->_remove(delete $self->{cleaner})
-        unless keys(%$connections) || keys(%{$self->{servers}});
+        unless keys %$connections || keys %{$self->{servers}};
       $self->stop if $self->max_connections == 0 && keys %$connections == 0;
     }
   );

diff --git a/lib/Mojo/Reactor/Poll.pm b/lib/Mojo/Reactor/Poll.pm
@@ -53,10 +53,10 @@ sub one_tick {
 
     # Timers
     while (my ($id, $t) = each %{$self->{timers} || {}}) {
-      next unless $t->{time} <= time;
+      next unless $t->{time} <= (my $time = time);
 
       # Recurring timer
-      if (exists $t->{recurring}) { $t->{time} = time + $t->{recurring} }
+      if (exists $t->{recurring}) { $t->{time} = $time + $t->{recurring} }
 
       # Normal timer
       else { $self->remove($id) }