From 1666c40a7aa43fc310793beab2a6c455244e064a Mon Sep 17 00:00:00 2001
From: Michael Gray <mg13@sanger.ac.uk>
Date: Fri, 11 Oct 2013 14:02:52 +0000
Subject: [PATCH] BaseAdaptor.pm: properly unpack _tables().
---
modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm b/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm
index a53c2e44c5..07250cfc93 100755
--- a/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/BaseAdaptor.pm
@@ -882,9 +882,10 @@ sub last_insert_id {
}
else {
if(!$table) {
- ($table) = $self->_tables();
+ my ($table_entry) = $self->_tables(); # first table entry
+ $table = $table_entry->[0]; # table_entry is [ name, alias ]
}
- @args = (undef, $dbc->dbname(), $table->[0], $field);
+ @args = (undef, $dbc->dbname(), $table, $field);
}
$attributes ||= {};
return $dbh->last_insert_id(@args, $attributes);
--
GitLab