X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=c8e9c7c8aad4bd44c38bba69e84d9fe7cd2152dc;hb=4ee03d727423d0eab446e173ceb882163bc58f48;hp=4cc8c6d56fa99eca7a648bea63452fdb0ba9eb35;hpb=c2f4a965484d7f564f72dca3e3c5fb262d896fa9;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 4cc8c6d..c8e9c7c 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -537,7 +537,7 @@ sub prepare_path {
     my $query = $env->{QUERY_STRING} ? '?' . $env->{QUERY_STRING} : '';
     my $uri   = $scheme . '://' . $host . '/' . $path . $query;
 
-    $ctx->request->uri( bless \$uri, $uri_class );
+    $ctx->request->uri( (bless \$uri, $uri_class)->canonical );
 
     # set the base URI
     # base must end in a slash
@@ -751,7 +751,6 @@ Start the engine. Implemented by the various engine classes.
 
 sub run {
     my ($self, $app, @args) = @_;
-    Carp::cluck("Run");
     # FIXME - Do something sensible with the options we're passed
     $self->_run_psgi_app($self->_build_psgi_app($app, @args), @args);
 }
@@ -783,9 +782,9 @@ sub _build_psgi_app {
 }
 
 sub _run_psgi_app {
-    my ($self, $psgi_app, @args);
+    my ($self, $psgi_app, @args) = @_;
     # FIXME - Need to be able to specify engine and pass options..
-    Plack::Loader->auto()->run($psgi_app);
+    Plack::Loader->auto(port => $args[0])->run($psgi_app);
 }
 
 =head2 $self->write($c, $buffer)