push @args, "-F";
push @args, "-l $options->{ 'word_size' }";
push @args, "-maxmatch";
- push @args, "-n" if not Maasha::Seq::seq_guess_type( $entries1->[ 0 ]->[ 1 ] ) eq "protein";
+ push @args, "-n" if not Maasha::Seq::seq_guess_type( $entries1->[ 0 ]->[ 1 ] ) eq "PROTEIN";
push @args, "-b" if $options->{ "direction" } =~ /^b/;
push @args, "-r" if $options->{ "direction" } =~ /^r/;
push @results, dclone $result;
}
-
}
unlink $file_in1;