From: Devin Austin <devin.austin@gmail.com>
Date: Fri, 6 Nov 2009 17:13:27 +0000 (+0000)
Subject: fixed options passed to devel server so that author tests pass
X-Git-Tag: 5.80014~15^2~2^2~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=656e6703e5c8946d01656a45718d3effb36fe0aa;p=catagits%2FCatalyst-Runtime.git

fixed options passed to devel server so that author tests pass
---

diff --git a/t/author/optional_http-server.t b/t/author/optional_http-server.t
index d4a2183..1927442 100644
--- a/t/author/optional_http-server.t
+++ b/t/author/optional_http-server.t
@@ -32,7 +32,7 @@ rmtree '../t/tmp/TestApp/t' or die;
 # spawn the standalone HTTP server
 my $port = 30000 + int rand(1 + 10000);
 my @cmd = ($^X, "-I$FindBin::Bin/../../lib",
-  "$FindBin::Bin/../../t/tmp/TestApp/script/testapp_server.pl", '-port', $port );
+  "$FindBin::Bin/../../t/tmp/TestApp/script/testapp_server.pl", '-l', $port );
 my $pid = open3( undef, my $server, undef, @cmd)
     or die "Unable to spawn standalone HTTP server: $!";