X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FHTTP%2FServer.pm;h=be23a7dccd68c6f931d64329464dd0cbe8b084e4;hb=dcbab91d4b76cb76cccd3df5566b4bef213fd452;hp=ffb6685dfd9ac5fc0df0af0e7bd9ac4b1b888284;hpb=6f4e1683d466d0123cc7507b29a55b474ddca594;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine/HTTP/Server.pm b/lib/Catalyst/Engine/HTTP/Server.pm index ffb6685..be23a7d 100644 --- a/lib/Catalyst/Engine/HTTP/Server.pm +++ b/lib/Catalyst/Engine/HTTP/Server.pm @@ -41,7 +41,7 @@ sub run { my $class = shift; my $port = shift || 3000; - my $server = Catalyst::Engine::Server::Simple->new($port); + my $server = Catalyst::Engine::HTTP::Server::Simple->new($port); $server->handler( sub { $class->handler } ); $server->run; @@ -65,7 +65,7 @@ the same terms as Perl itself. =cut -package Catalyst::Engine::Server::Simple; +package Catalyst::Engine::HTTP::Server::Simple; use strict; use base 'HTTP::Server::Simple';