Merge pull request #155 from olviko/pull_req20

A fix for https://github.com/StackExchange/StackExchange.Redis/issues/20

StackExchange.Redis/StackExchange/Redis/SocketManager.cs

@@ -120,6 +120,7 @@ public void Dispose()
             }
             OnDispose();
         }
+
         internal SocketToken BeginConnect(EndPoint endpoint, ISocketCallback callback)
         {
             var socket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
@@ -130,10 +131,23 @@ internal SocketToken BeginConnect(EndPoint endpoint, ISocketCallback callback)
                 CompletionType connectCompletionType = CompletionType.Any;
                 this.ShouldForceConnectCompletionType(ref connectCompletionType);
 
-                CompletionTypeHelper.RunWithCompletionType(
-                    (cb) => socket.BeginConnect(endpoint, cb, Tuple.Create(socket, callback)),
-                    (ar) => EndConnectImpl(ar),
-                    connectCompletionType);
+                if (endpoint is DnsEndPoint)
+                {
+                    // A work-around for a Mono bug in BeginConnect(EndPoint endpoint, AsyncCallback callback, object state)
+                    DnsEndPoint dnsEndpoint = (DnsEndPoint)endpoint;
+
+                    CompletionTypeHelper.RunWithCompletionType(
+                        (cb) => socket.BeginConnect(dnsEndpoint.Host, dnsEndpoint.Port, cb, Tuple.Create(socket, callback)),
+                        (ar) => EndConnectImpl(ar),
+                        connectCompletionType);
+                }
+                else
+                {
+                    CompletionTypeHelper.RunWithCompletionType(
+                        (cb) => socket.BeginConnect(endpoint, cb, Tuple.Create(socket, callback)),
+                        (ar) => EndConnectImpl(ar),
+                        connectCompletionType);
+                }
             } 
             catch (NotImplementedException ex)
             {