added server_base

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Engine / Apache.pm

diff --git a/lib/Catalyst/Engine/Apache.pm b/lib/Catalyst/Engine/Apache.pm
index 0bba6ad..5d117e6 100644 (file)
--- a/lib/Catalyst/Engine/Apache.pm
+++ b/lib/Catalyst/Engine/Apache.pm
@@ -142,6 +142,7 @@ sub prepare_path {
     $base->port( $c->apache_request->get_server_port );
     $base->path( $c->apache_request->location );
     $c->req->base( $base->as_string );
+    $c->req->server_base( $base->scheme . '://' . $base->authority );
 }
 
 =head3 prepare_request