Hostnames are now resolved on demand unless provieded by engine

diff --git a/Changes b/Changes
index 7f9b10a..718f6d5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 This file documents the revision history for Perl extension Catalyst.
 
+5.22  2005-00-00 00:00:00
+        - Improved base locating in MP engines
+        - Hostnames are now resolved on demand unless provieded by engine
+
 5.21  2005-05-24 14:56:00
         - fixed a bug in https detection
         - fixed auto chain finally

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 03dcf18..be6fb6d 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -11,7 +11,7 @@ our $CATALYST_SCRIPT_GEN = 4;
 
 __PACKAGE__->mk_classdata($_) for qw/dispatcher engine log/;
 
-our $VERSION = '5.21';
+our $VERSION = '5.22';
 our @ISA;
 
 =head1 NAME

diff --git a/lib/Catalyst/Engine/Apache/Base.pm b/lib/Catalyst/Engine/Apache/Base.pm
index 0791743..ce4b33f 100644 (file)
--- a/lib/Catalyst/Engine/Apache/Base.pm
+++ b/lib/Catalyst/Engine/Apache/Base.pm
@@ -118,7 +118,7 @@ sub prepare_path {
 
         $path =~ s/^\///;
 
-        if ( $c->apache->filename && -e $c->apache->filename ) {
+        if ( $c->apache->filename && -x $c->apache->filename ) {
 
             my $filename = ( File::Spec->splitpath( $c->apache->filename ) )[2];
 

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index dd1f312..e2f691f 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -146,6 +146,7 @@ sub hostname {
 
     if ( @_ ) {
         $self->{hostname} = shift;
+        return $self->{hostname};
     }
 
     unless ( $self->{hostname} ) {