added support for non Catalyst::Base components

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Request.pm

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index dd1f312..27bda13 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -144,12 +144,12 @@ Lookup the current users DNS hostname.
 sub hostname {
     my $self = shift;
 
-    if ( @_ ) {
-        $self->{hostname} = shift;
+    if ( @_ == 0 && not $self->{hostname} ) {
+         $self->{hostname} = gethostbyaddr( inet_aton( $self->address ), AF_INET );
     }
 
-    unless ( $self->{hostname} ) {
-         $self->{hostname} = gethostbyaddr( inet_aton( $self->address ), AF_INET );
+    if ( @_ == 1 ) {
+        $self->{hostname} = shift;
     }
 
     return $self->{hostname};