From 6cd08dbbb180c999e27df9c6b4295feefbfd5177 Mon Sep 17 00:00:00 2001
From: Andrew Yates <ayates@ebi.ac.uk>
Date: Wed, 15 Aug 2012 13:22:33 +0000
Subject: [PATCH] Need to record the construction of the object is the last
 time we used it

---
 modules/Bio/EnsEMBL/DBSQL/ProxyDBConnection.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/modules/Bio/EnsEMBL/DBSQL/ProxyDBConnection.pm b/modules/Bio/EnsEMBL/DBSQL/ProxyDBConnection.pm
index a8b0b6990b..948d7d94ec 100644
--- a/modules/Bio/EnsEMBL/DBSQL/ProxyDBConnection.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/ProxyDBConnection.pm
@@ -66,7 +66,10 @@ sub new {
   throw "No database name -DBNAME given" unless $dbname;
   my $self = $class->SUPER::new($dbc);
   $self->dbname($dbname);
-  $self->reconnect_interval($reconnect_interval) if $reconnect_interval;
+  if($reconnect_interval) {
+    $self->reconnect_interval($reconnect_interval);
+    $self->_last_used();
+  }
   return $self;  
 }
 
-- 
GitLab