server_base sucks

diff --git a/Changes b/Changes
index dbde45c..f3cc0c5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension Catalyst.
 
+4.12  Wed Mar 02 11:00:00 2005
+        - server_base sucks, removed
+
 4.11  Wed Mar 02 11:00:00 2005
         - removed some warnings
         - improved docs

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index d547702..6f0311f 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -7,7 +7,7 @@ use Catalyst::Log;
 
 __PACKAGE__->mk_classdata($_) for qw/_config log/;
 
-our $VERSION = '4.11';
+our $VERSION = '4.12';
 our @ISA;
 
 =head1 NAME

diff --git a/lib/Catalyst/Engine/Apache.pm b/lib/Catalyst/Engine/Apache.pm
index ebc3aa1..0bba6ad 100644 (file)
--- a/lib/Catalyst/Engine/Apache.pm
+++ b/lib/Catalyst/Engine/Apache.pm
@@ -142,7 +142,6 @@ 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

diff --git a/lib/Catalyst/Engine/CGI.pm b/lib/Catalyst/Engine/CGI.pm
index c3441b0..6180550 100644 (file)
--- a/lib/Catalyst/Engine/CGI.pm
+++ b/lib/Catalyst/Engine/CGI.pm
@@ -125,7 +125,6 @@ sub prepare_path {
     $base = URI->new($base);
     $base->path('/') if ( $ENV{CATALYST_TEST} || !$base->path );
     $c->req->base( $base->as_string );
-    $c->req->server_base( $base->scheme . '://' . $base->authority . '/' );
 }
 
 =head3 prepare_request

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 4a97566..b63e48d 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -5,7 +5,7 @@ use base 'Class::Accessor::Fast';
 
 __PACKAGE__->mk_accessors(
     qw/action arguments base cookies headers match method parameters path
-      server_base snippets uploads/
+      snippets uploads/
 );
 
 *args   = \&arguments;
@@ -77,10 +77,6 @@ Contains the request method.
 
     print $c->request->method
 
-=head3 server_base
-
-Contains the server part of the uri base.
-
 =head3 snippets
 
 Returns an arrayref containing regex snippets.