X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fauthor%2Foptional_http-server.t;h=692929c9a58dc6535ee087ade0f25db0e7faae2b;hb=bc6fa9fc20842a6cb58c8eabbae9efd7de9de691;hp=d4a218335b913ab919c192c3656d542b385f5495;hpb=81f25ce60d12146ada6baa3ed8db87a0e8a54408;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/author/optional_http-server.t b/t/author/optional_http-server.t
index d4a2183..692929c 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", '-p', $port );
 my $pid = open3( undef, my $server, undef, @cmd)
     or die "Unable to spawn standalone HTTP server: $!";