changed connect to reset connected to 0 rather than set it up at the right time

modules/Bio/EnsEMBL/DBSQL/DBConnection.pm

@@ -179,6 +179,7 @@ sub connect {
   my $self = shift;
 
   return if($self->connected);
+  $self->connected(1);
 
   if(defined($self->db_handle()) and $self->db_handle()->ping()) {
     warning("unconnected db_handle is still pingable, reseting connected boolean\n");
@@ -196,12 +197,12 @@ sub connect {
     warn("Could not connect to database " . $self->dbname() .
          " as user " . $self->username() . 
          " using [$dsn] as a locator:\n" . $DBI::errstr);
+    $self->connected(0);
     throw("Could not connect to database " . $self->dbname() .
           " as user " . $self->username() .
           " using [$dsn] as a locator:\n" . $DBI::errstr);
   }
 
-  $self->connected(1);
   $self->db_handle($dbh);
   #print("CONNECT\n");
 }
@@ -513,7 +514,7 @@ sub db_handle {
    return $self->{'db_handle'.$$} = shift if(@_);
    return $self->{'db_handle'.$$} if($self->connected);
 
-#  $self->connect();
+   $self->connect();
    return $self->{'db_handle'.$$};
 }
 
@@ -541,7 +542,6 @@ sub prepare {
 
   # print STDERR  "SQL(".$self->dbname."):$string\n";
 
-   $self->connect() unless $self->connected();
    my $sth = $self->db_handle->prepare($string);
 
    # return an overridden statement handle that provides us with
@@ -576,7 +576,6 @@ sub do {
 
    #info("SQL(".$self->dbname."):$string");
 
-   $self->connect() unless $self->connected();
    my $result = $self->db_handle->do($string);
 
    # disconnect if the disconnect when inactive flag is set and