improved prefork command to allow -a and -L values below 1 second

mojolicious · Apr 4, 2013 · 5589737 · 5589737
1 parent 03e5be5
commit 5589737
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 
 3.93  2013-04-04
   - Added clear method to Mojo::IOLoop::Delay.
+  - Improved prefork command to allow -a and -L values below 1 second.
   - Improved documentation.
 
 3.92  2013-04-03

diff --git a/lib/Mojolicious/Command/prefork.pm b/lib/Mojolicious/Command/prefork.pm
@@ -48,7 +48,7 @@ sub run {
   my $prefork = Mojo::Server::Prefork->new(app => $self->app);
   GetOptionsFromArray \@args,
     'A|accepts=i'           => sub { $prefork->accepts($_[1]) },
-    'a|accept-interval=i'   => sub { $prefork->accept_interval($_[1]) },
+    'a|accept-interval=f'   => sub { $prefork->accept_interval($_[1]) },
     'b|backlog=i'           => sub { $prefork->backlog($_[1]) },
     'c|clients=i'           => sub { $prefork->max_clients($_[1]) },
     'G|graceful-timeout=i'  => sub { $prefork->graceful_timeout($_[1]) },
@@ -57,7 +57,7 @@ sub run {
     'H|heartbeat-timeout=i' => sub { $prefork->heartbeat_timeout($_[1]) },
     'i|inactivity=i'        => sub { $prefork->inactivity_timeout($_[1]) },
     'lock-file=s'           => sub { $prefork->lock_file($_[1]) },
-    'L|lock-timeout=i'      => sub { $prefork->lock_timeout($_[1]) },
+    'L|lock-timeout=f'      => sub { $prefork->lock_timeout($_[1]) },
     'l|listen=s'     => \my @listen,
     'multi-accept=i' => sub { $prefork->multi_accept($_[1]) },
     'P|pid-file=s'   => sub { $prefork->pid_file($_[1]) },