xs_Connection.0.26.close_patch

--- MongoDB-0.26/xs/Connection.xs	2009-11-05 17:19:25.000000000 -0800
+++ MongoDB-0.26/xs/Connection.xs.patched	2009-12-04 12:37:10.000000000 -0800
@@ -186,11 +186,25 @@
          mongo_link *link;
      CODE:
          link = (mongo_link*)perl_mongo_get_ptr_from_instance(self);
+
          if (link->paired) {
+#ifdef WIN32
+           closesocket(link->server.pair.left_socket);
+           closesocket(link->server.pair.right_socket);
+#else
+           close(link->server.pair.left_socket);
+           close(link->server.pair.right_socket);
+#endif
            Safefree(link->server.pair.left_host);
            Safefree(link->server.pair.right_host);
          }
          else {
+#ifdef WIN32
+           closesocket(link->server.single.socket);
+#else
+           close(link->server.single.socket);
+#endif
            Safefree(link->server.single.host);
          }
+
          Safefree(link);