X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FServer.pm;h=47aa7f647788062f851d6c36ae59826f8374e788;hp=014e2f191eb8de6cbeb4bdf2dc73fe2983e56737;hb=a564a4be79ed0a4eb1dcba02a9ce19cef40b7452;hpb=32620e3e2e33e336e75865b500a0d4686893e675 diff --git a/lib/Catalyst/Engine/Server.pm b/lib/Catalyst/Engine/Server.pm index 014e2f1..47aa7f6 100644 --- a/lib/Catalyst/Engine/Server.pm +++ b/lib/Catalyst/Engine/Server.pm @@ -26,13 +26,12 @@ This class overloads some methods from C. =cut sub run { - my $class = shift; - my $port = shift || 3000; - my $script = shift; + my $class = shift; + my $port = shift || 3000; my $server = Catalyst::Engine::Server::Simple->new($port); - $server->handler( sub { $script ? print `$script` : $class->handler } ); + $server->handler( sub { $class->handler } ); $server->run; }