This file documents the revision history for Perl extension Catalyst.
-5.59
+5.59 2005-11-30 13:25:00
- Fixed shebang line for generated scripts
- - Added REDIRECT_URL support
- Fixed forward to classes ($c->forward(qw/MyApp foo/))
- Wrap use block in begin to quelch C:C3 warnings
- Removed scrollbar from debug output
local (*ENV) = $self->env || \%ENV;
my $scheme = $c->request->secure ? 'https' : 'http';
- my $host = $ENV{HTTP_HOST} || $ENV{SERVER_NAME};
- my $port = $ENV{SERVER_PORT} || 80;
- my $base_path = $ENV{REDIRECT_URL} || $ENV{SCRIPT_NAME} || '/';
+ my $host = $ENV{HTTP_HOST} || $ENV{SERVER_NAME};
+ my $port = $ENV{SERVER_PORT} || 80;
+ my $base_path = $ENV{SCRIPT_NAME} || '/';
# If we are running as a backend proxy, get the true hostname
PROXY_CHECK: