From b47a20819cf04da6047d3cbf684a1258925dbc46 Mon Sep 17 00:00:00 2001
From: Leo Gordon <lg4@ebi.ac.uk>
Date: Wed, 24 Sep 2014 16:05:37 +0100
Subject: [PATCH] bugfix : if the given job_id does not match any Job, exit
gracefully
---
scripts/beekeeper.pl | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/scripts/beekeeper.pl b/scripts/beekeeper.pl
index 6f04a23c9..cce917fea 100755
--- a/scripts/beekeeper.pl
+++ b/scripts/beekeeper.pl
@@ -246,8 +246,14 @@ sub main {
$self->{'analyses_pattern'} = $self->{'logic_name'};
}
- my $list_of_analyses = $run_job_id
- ? [ $self->{'dba'}->get_AnalysisJobAdaptor->fetch_by_dbID( $run_job_id )->analysis ]
+ my $run_job;
+ if($run_job_id) {
+ $run_job = $self->{'dba'}->get_AnalysisJobAdaptor->fetch_by_dbID( $run_job_id )
+ or die "Could not fetch Job with dbID=$run_job_id.\n";
+ }
+
+ my $list_of_analyses = $run_job
+ ? [ $run_job->analysis ]
: $self->{'dba'}->get_AnalysisAdaptor->fetch_all_by_pattern( $self->{'analyses_pattern'} );
if( $self->{'analyses_pattern'} ) {
--
GitLab