Index: /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/Standard.pm
===================================================================
--- /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/Standard.pm (revision 26174)
+++ /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/Standard.pm (revision 29620)
@@ -22,3 +22,16 @@
 }
 
+# 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;