From df50a66b9a57a1b89288f33e159c99f6e12ee067 Mon Sep 17 00:00:00 2001
From: Magali Ruffier <mr6@ebi.ac.uk>
Date: Mon, 9 Sep 2013 15:22:22 +0000
Subject: [PATCH] replaced shift with @_ when more than one arguments are read
in second argument was being ignored
---
modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm | 2 +-
modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm | 2 +-
modules/Bio/EnsEMBL/Map/DBSQL/DitagFeatureAdaptor.pm | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm b/modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm
index 588667db78..212729f50d 100644
--- a/modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm
@@ -225,7 +225,7 @@ sub fetch_by_chr_band {
=cut
sub list_dbIDs {
- my ($self, $ordered) = shift;
+ my ($self, $ordered) = @_;
return $self->_list_dbIDs("karyotype",undef, $ordered);
}
diff --git a/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm b/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm
index 063cc0a8c2..88179b2210 100644
--- a/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm
+++ b/modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm
@@ -378,7 +378,7 @@ sub update_ditag {
=cut
sub list_dbIDs {
- my ($self, $ordered) = shift;
+ my ($self, $ordered) = @_;
return $self->_list_dbIDs('ditag');
}
diff --git a/modules/Bio/EnsEMBL/Map/DBSQL/DitagFeatureAdaptor.pm b/modules/Bio/EnsEMBL/Map/DBSQL/DitagFeatureAdaptor.pm
index 148ddc9456..1d62c3ec99 100644
--- a/modules/Bio/EnsEMBL/Map/DBSQL/DitagFeatureAdaptor.pm
+++ b/modules/Bio/EnsEMBL/Map/DBSQL/DitagFeatureAdaptor.pm
@@ -840,7 +840,7 @@ sub update {
=cut
sub list_dbIDs {
- my ($self, $ordered) = shift;
+ my ($self, $ordered) = @_;
return $self->_list_dbIDs('ditag_feature', undef, $ordered);
}
--
GitLab