changed default binded address family to use an available address family of host name. [druby-ja:101]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7568 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 30 insertions, 4 deletions

diff --git a/lib/drb/drb.rb b/lib/drb/drb.rb
index ace46b29aa..210e16da24 100644
--- a/lib/drb/drb.rb
+++ b/lib/drb/drb.rb
@@ -815,14 +815,40 @@ module DRb
       self.new(uri, soc, config)
     end
 
+    def self.getservername
+      host = Socket::gethostname
+      begin
+        Socket::gethostbyname(host)[0]
+      rescue
+        host
+      end
+    end
+
+    def self.open_server_inaddr_any(host, port)
+      infos = Socket::getaddrinfo(host, nil, 
+                                  Socket::AF_UNSPEC,
+                                  Socket::SOCK_STREAM, 
+                                  0,
+                                  Socket::AI_PASSIVE)
+      family = infos.collect { |af, *_| af }.uniq
+      case family
+      when ['AF_INET']
+        return TCPServer.open('0.0.0.0', port)
+      when ['AF_INET6']
+        return TCPServer.open('::', port)
+      else
+        return TCPServer.open(port)
+      end
+    end
+
     # Open a server listening for connections at +uri+ using 
     # configuration +config+.
     def self.open_server(uri, config)
       uri = 'druby://:0' unless uri
       host, port, opt = parse_uri(uri)
       if host.size == 0
-	soc = TCPServer.open(port)
-	host = Socket.gethostname
+        host = getservername
+        soc = open_server_inaddr_any(host, port)
       else
 	soc = TCPServer.open(host, port)
       end
diff --git a/lib/drb/ssl.rb b/lib/drb/ssl.rb
index 1a454a59cc..a1395351f5 100644
--- a/lib/drb/ssl.rb
+++ b/lib/drb/ssl.rb
@@ -136,8 +136,8 @@ module DRb
       uri = 'drbssl://:0' unless uri
       host, port, opt = parse_uri(uri)
       if host.size == 0
-	soc = TCPServer.open(port)
-	host = Socket.gethostname
+        host = getservername
+        soc = open_server_inaddr_any(host, port)
       else
 	soc = TCPServer.open(host, port)
       end