Commit 32708ea6 authored by Leo Gordon's avatar Leo Gordon
Browse files

pipeline_name now gets propagated to all meadows of the Valley (preparatory)

parent 394ad647
......@@ -34,7 +34,7 @@ sub meadow_class_path {
sub new {
my ($class, $current_meadow_type) = @_;
my ($class, $current_meadow_type, $pipeline_name) = @_;
my $self = bless {}, $class;
......@@ -44,7 +44,11 @@ sub new {
foreach my $meadow_class (@{ find_submodules( $self->meadow_class_path ) }) {
eval "require $meadow_class";
if($meadow_class->name) {
$amch->{$meadow_class->type} = $meadow_class->new();
my $meadow_object = $meadow_class->new();
$meadow_object->pipeline_name( $pipeline_name ) if($pipeline_name);
$amch->{$meadow_class->type} = $meadow_object;
}
}
......
......@@ -171,12 +171,11 @@ sub main {
}
$meadow_type = 'LOCAL' if($local);
my $valley = Bio::EnsEMBL::Hive::Valley->new( $meadow_type );
my $valley = Bio::EnsEMBL::Hive::Valley->new( $meadow_type, $pipeline_name );
my $current_meadow = $valley->get_current_meadow();
warn "Current meadow: ".$current_meadow->toString."\n";
$current_meadow->pipeline_name($pipeline_name);
$current_meadow->meadow_options($meadow_options);
$current_meadow->total_running_workers_max($total_workers_max) if($total_workers_max);
$current_meadow->pending_adjust(not $no_pend_adjust);
......
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