Changeset 29620

Timestamp:

02/06/09 11:38:54 (4 years ago)

Author:

yappo

Message:

loopback address hacks for win32

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/Standard.pm (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/Standard.pm

@@ -22 +22 @@
 }
 
+# for win32 hacks
+BEGIN {
+    if ($^O eq 'MSWin32') {
+        no warnings 'redefine';
+        *_build_hostname = sub {
+            my ( $self, $req ) = @_;
+            my $address = $req->address;
+            return 'localhost' if $address;
+            return gethostbyaddr( inet_aton( $req->address ), AF_INET );
+        };
+    }
+}
+
 1;