Fixed Transformer was changed to array refs upstream but not in code …

…and in test svn path=/bioperl-pipeline/trunk/; revision=12748
bioperl · Feb 25, 2003 · 51ca1b8 · 51ca1b8
1 parent ee7f326
commit 51ca1b8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Bio/Pipeline/Transformer.pm b/Bio/Pipeline/Transformer.pm
@@ -127,7 +127,7 @@ sub run {
     return;
    }
    my @inputs = ref $input_ref eq "ARRAY" ? @{$input_ref} : ($input_ref);
-   my @methods = $self->method;
+   my @methods = @{$self->method};
    my $constructor = shift @methods;
    my @args        = @{$constructor->arguments};
    @args           = $self->_format_input_arguments($input_ref,@args);

diff --git a/t/Transformer.t b/t/Transformer.t
@@ -41,7 +41,7 @@ push @meth , Bio::Pipeline::Method->new(-name=>"run",
 
 my $trans  = new Bio::Pipeline::Transformer(-module=>"Bio::Pipeline::Utils::Filter",
                                             -method=>\@meth);
-ok scalar($trans->method), 2;
+ok scalar @{$trans->method}, 2;
 ok $trans->module, "Bio::Pipeline::Utils::Filter";
 
 ok my $filtered = $trans->run(\@hsps);