compatibility fix for plugins

Ensembl · Feb 16, 2017 · e79ac34 · e79ac34
1 parent a0b32d9
commit e79ac34
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/modules/Bio/EnsEMBL/VEP/BaseVEP.pm b/modules/Bio/EnsEMBL/VEP/BaseVEP.pm
@@ -128,9 +128,10 @@ sub registry {
 
   my $config = $self->config;
 
-  return $config->{_registry} = shift if @_;
-
-  if(!exists($config->{_registry})) {
+  if(@_) {
+    $config->{_registry} = shift;
+  }
+  elsif(!exists($config->{_registry})) {
 
     my $reg = 'Bio::EnsEMBL::Registry';
 
@@ -176,6 +177,9 @@ sub registry {
     $config->{_registry} = $reg;
   }
 
+  # copy to raw_config for plugin backward compatibility
+  $config->{_params}->{reg} ||= $config->{_registry};
+
   return $config->{_registry};
 }
 

diff --git a/modules/Bio/EnsEMBL/VEP/Constants.pm b/modules/Bio/EnsEMBL/VEP/Constants.pm
@@ -20,7 +20,7 @@ use warnings;
 use base qw(Exporter);
 
 our $VEP_VERSION     = 87;
-our $VEP_SUB_VERSION = 23;
+our $VEP_SUB_VERSION = 24;
 
 our @EXPORT_OK = qw(
   @FLAG_FIELDS