From: Florian Ragwitz <rafl@debian.org>
Date: Tue, 12 Apr 2011 00:05:59 +0000 (+0200)
Subject: A failing reverse lookup doesn't imply it's a local address
X-Git-Tag: 5.80033~30
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=9fb936e5346f24e37bcb6d7d67c981d43aedc7bb

A failing reverse lookup doesn't imply it's a local address
---

diff --git a/lib/Catalyst/Engine/HTTP.pm b/lib/Catalyst/Engine/HTTP.pm
index 97cd8d6..1ba4cf2 100644
--- a/lib/Catalyst/Engine/HTTP.pm
+++ b/lib/Catalyst/Engine/HTTP.pm
@@ -546,7 +546,7 @@ sub _socket_data {
     my %hostname_cache;
     sub _gethostbyaddr {
         my $ip = shift;
-        $hostname_cache{$ip} ||= gethostbyaddr( $ip, AF_INET ) || 'localhost';
+        $hostname_cache{$ip} ||= gethostbyaddr( $ip, AF_INET ) || $ip;
     }
 }
 
diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index ab5c0da..921eab4 100644
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -120,7 +120,7 @@ has hostname => (
   lazy      => 1,
   default   => sub {
     my ($self) = @_;
-    gethostbyaddr( inet_aton( $self->address ), AF_INET ) || 'localhost'
+    gethostbyaddr( inet_aton( $self->address ), AF_INET ) || $self->address
   },
 );