Commit 61041490 authored by Andy Yates's avatar Andy Yates
Browse files

Better target server empty detection

parent 62f0a16f
......@@ -60,6 +60,7 @@ use warnings;
use base qw/Bio::EnsEMBL::Pipeline::FASTA::Base/;
use Bio::EnsEMBL::Utils::Scalar qw/check_ref/;
use File::Spec;
sub param_defaults {
......@@ -81,7 +82,7 @@ sub fetch_input {
my ($self) = @_;
my $servers = $self->param('target_servers');
if(!@{$servers}) {
if(!check_ref($servers, 'ARRAY') || ! @{$servers}) {
my $msg = 'Will not perform copy as we have no servers';
my $is_error = 0;
$self->db()->get_JobMessageAdaptor()->register_message(
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment