qw() as a list is deprecated in 5.14 so we shouldn't do it

418e6a4e · Andy Yates · 565a18a6 · 418e6a4e
Commit 418e6a4e authored Nov 10, 2011 by Andy Yates
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

modules/Bio/EnsEMBL/Registry.pm modules/Bio/EnsEMBL/Registry.pm +1 -1

No files found.
--- a/modules/Bio/EnsEMBL/Registry.pm
+++ b/modules/Bio/EnsEMBL/Registry.pm
@@ -1612,7 +1612,7 @@ sub load_registry_from_db {
  }

  # Register Core like databases
-  foreach my $type qw (core cdna vega otherfeatures rnaseq){
+  foreach my $type (qw(core cdna vega otherfeatures rnaseq)) {

    my @dbs = grep { /^[a-z]+_[a-z0-9]+  # species name
                       _