* roottypes.cs: Rename from tree.cs.

[mono.git] / mcs / class / System.Data.OracleClient / System.Data.OracleClient / OracleConnectionPool.cs

diff --git a/mcs/class/System.Data.OracleClient/System.Data.OracleClient/OracleConnectionPool.cs b/mcs/class/System.Data.OracleClient/System.Data.OracleClient/OracleConnectionPool.cs
old mode 100755 (executable)
new mode 100644 (file)
index da06480..195275a
--- a/mcs/class/System.Data.OracleClient/System.Data.OracleClient/OracleConnectionPool.cs
+++ b/mcs/class/System.Data.OracleClient/System.Data.OracleClient/OracleConnectionPool.cs
@@ -96,6 +96,18 @@ namespace System.Data.OracleClient
                        activeConnections++;
                        return manager.CreateConnection (info);
                }
+
+               public void Dispose () 
+               {
+                       if (list != null) {
+                               if (list.Count > 0)
+                                       foreach (OciGlue connection in list)
+                                               if (connection.Connected)
+                                                       connection.Disconnect ();
+                               list.Clear ();
+                               list = null;
+                       }                       
+               }
        }
 }