Fixes for list-valued parameters.

Ensembl · May 15, 2021 · b39e15e · b39e15e
1 parent 26d993c
commit b39e15e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 6 deletions.
diff --git a/lib/Bio/EnsEMBL/DataCheck/DbCheck.pm b/lib/Bio/EnsEMBL/DataCheck/DbCheck.pm
@@ -129,7 +129,6 @@ has 'registry_file' => (
 has 'server_uri' => (
   is      => 'ro',
   isa     => 'ArrayRef[Str] | Undef',
-  default => sub { [] }
 );
 
 =head2 registry
@@ -225,7 +224,6 @@ sub _registry_default {
 has 'old_server_uri' => (
   is      => 'ro',
   isa     => 'ArrayRef[Str] | Undef',
-  default => sub { [] }
 );
 
 =head2 data_file_path

diff --git a/lib/Bio/EnsEMBL/DataCheck/Pipeline/DbDataChecks_conf.pm b/lib/Bio/EnsEMBL/DataCheck/Pipeline/DbDataChecks_conf.pm
@@ -59,8 +59,8 @@ sub default_options {
     datacheck_groups   => [],
     datacheck_types    => [],
     registry_file      => undef,
-    server_uri         => [],
-    old_server_uri     => [],
+    server_uri         => undef,
+    old_server_uri     => undef,
     data_file_path     => undef,
 
     failures_fatal => 0,

diff --git a/scripts/run_pipeline.pl b/scripts/run_pipeline.pl
@@ -379,8 +379,8 @@ =head1 OPTIONS
   registry_file => $registry_file,
   timestamp     => localtime->cdate,
 );
-$input_id{server_uri} = $server_uri if scalar $server_uri;
-$input_id{old_server_uri} = $old_server_uri if scalar $old_server_uri;
+$input_id{server_uri} = \@server_uri if scalar @server_uri;
+$input_id{old_server_uri} = \@old_server_uri if scalar @old_server_uri;
 $input_id{data_file_path} = $data_file_path if defined $data_file_path;
 $input_id{db_type} = $dbtype if defined $dbtype;
 $input_id{species} = \@species if scalar @species;