added missing files

[biopieces.git] / code_perl / Maasha / Match.pm

diff --git a/code_perl/Maasha/Match.pm b/code_perl/Maasha/Match.pm
index 9d315b7d6f84aba42e9e5dbb2fdef5423181341f..6ddd4132a05f6e8a3f044a17b558e81011ea09b2 100644 (file)
--- a/code_perl/Maasha/Match.pm
+++ b/code_perl/Maasha/Match.pm
@@ -76,7 +76,7 @@ sub match_mummer
     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/;
 
@@ -123,7 +123,6 @@ sub match_mummer
 
             push @results, dclone $result;
         }
-    
     }
 
     unlink $file_in1;