From 190fd87c7db8aaf17c8ae0991794e1a8a0dc65f2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kusalananda=20K=C3=A4h=C3=A4ri?=
<ak4@sanger.ac.uk>
Date: Mon, 15 Jun 2009 11:04:47 +0000
Subject: [PATCH] Delete leftover POD and do some cleanup.
---
modules/Bio/EnsEMBL/Registry.pm | 9 ++-------
1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/modules/Bio/EnsEMBL/Registry.pm b/modules/Bio/EnsEMBL/Registry.pm
index 8d97b3c9d5..1ef3165d68 100644
--- a/modules/Bio/EnsEMBL/Registry.pm
+++ b/modules/Bio/EnsEMBL/Registry.pm
@@ -2083,11 +2083,6 @@ sub load_registry_from_db {
=head2 find_and_add_aliases
- Arg [DBH] : (optional) DBI handle
- A connected DBI database handle. Used instead
- of the database handles stored in the DBAdaptor
- objects. Bypasses the use of MetaContainer.
-
Arg [ADAPTOR] : (optional) Bio::EnsEMBL::DBSQL::DBAdaptor
The adaptor to use to retrieve aliases from.
@@ -2123,7 +2118,7 @@ sub find_and_add_aliases {
my $class = shift @_;
my ( $adaptor, $group, $dbh ) =
- rearrange( [qw(ADAPTOR GROUP HANDLE)], @_ );
+ rearrange( [ 'ADAPTOR', 'GROUP', 'HANDLE' ], @_ );
my @dbas;
if ( defined($adaptor) ) {
@@ -2146,7 +2141,7 @@ sub find_and_add_aliases {
$dbh->quote_identifier($dbname) ) );
# Execute, and don't care about errors (there will be errors for
- # databases without a 'meta' table, such as ensembl_ontology_NN).
+ # databases without a 'meta' table.
$sth->{'PrintError'} = 0;
$sth->{'RaiseError'} = 0;
if ( !$sth->execute( $dba->species_id() ) ) { next }
--
GitLab