Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
6060a716
Commit
6060a716
authored
Sep 26, 2013
by
Leo Gordon
Browse files
bugfix:
ENSCOMPARASW-131
. Swapped two rearrange() calls for slicing a hashref
parent
76b7a3df
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
5 deletions
+4
-5
modules/Bio/EnsEMBL/Hive/PipeConfig/HiveGeneric_conf.pm
modules/Bio/EnsEMBL/Hive/PipeConfig/HiveGeneric_conf.pm
+4
-5
No files found.
modules/Bio/EnsEMBL/Hive/PipeConfig/HiveGeneric_conf.pm
View file @
6060a716
...
...
@@ -49,7 +49,6 @@ use strict;
use
warnings
;
use
Bio::EnsEMBL::
ApiVersion
();
use
Bio::EnsEMBL::Utils::
Argument
('
rearrange
');
use
Bio::EnsEMBL::Hive::
Utils
('
stringify
');
use
Bio::EnsEMBL::Hive::Utils::
URL
;
...
...
@@ -489,8 +488,8 @@ sub run {
foreach
my
$aha
(
@
{
$self
->
pipeline_analyses
})
{
my
(
$logic_name
,
$module
,
$parameters_hash
,
$input_ids
,
$blocked
,
$batch_size
,
$hive_capacity
,
$failed_job_tolerance
,
$max_retry_count
,
$can_be_empty
,
$rc_id
,
$rc_name
,
$priority
,
$meadow_type
,
$analysis_capacity
)
=
rearrange
([
qw(logic_name module parameters input_ids blocked batch_size hive_capacity failed_job_tolerance
max_retry_count can_be_empty rc_id rc_name priority meadow_type analysis_capacity)
],
%$aha
);
=
@
{
$aha
}{
qw(
-
logic_name
-
module
-
parameters
-
input_ids
-
blocked batch_size
-
hive_capacity
-
failed_job_tolerance
-
max_retry_count
-
can_be_empty
-
rc_id
-
rc_name
-
priority
-
meadow_type
-
analysis_capacity)
};
# slicing a hash reference
unless
(
$logic_name
)
{
die
"
logic_name' must be defined in every analysis
";
...
...
@@ -574,8 +573,8 @@ sub run {
my
$dataflow_rule_adaptor
=
$hive_dba
->
get_DataflowRuleAdaptor
;
foreach
my
$aha
(
@
{
$self
->
pipeline_analyses
})
{
my
(
$logic_name
,
$wait_for
,
$flow_into
)
=
rearrange
([
qw(logic_name wait_for flow_into)
],
%$aha
);
my
(
$logic_name
,
$wait_for
,
$flow_into
)
=
@
{
$aha
}{
qw(
-
logic_name
-
wait_for
-
flow_into)
};
# slicing a hash reference
my
$analysis
=
$analysis_adaptor
->
fetch_by_logic_name
(
$logic_name
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment