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

modules/Bio/EnsEMBL/Hive/Valley.pm

@@ -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;
         }
     }
 

scripts/beekeeper.pl

@@ -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);