Set loader in new() rather than argv

miyagawa · Apr 14, 2010 · 37db318 · 37db318
1 parent 78ae4b6
commit 37db318
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/bin/starman b/bin/starman
@@ -16,13 +16,14 @@ Getopt::Long::GetOptions(
     "preload-app"      => \$preload_app,
 );
 
-my @argv = @ARGV;
+my @args = (server => 'Starman', env => 'deployment', version_cb => \&version);
 if (!$preload_app) {
-    # XXX: warn if @argv contains -r, -R, -L.
-    push @argv, '--loader' => 'Delayed';
+    push @args, 'loader' => 'Delayed';
 }
 
-my $runner = Plack::Runner->new(server => 'Starman', env => 'deployment', version_cb => \&version);
+my @argv = @ARGV;
+
+my $runner = Plack::Runner->new(@args);
 $runner->parse_options(@argv);
 $runner->set_options(argv => \@argv);
 $runner->run;