fixed dna/DNA bug in Align.pm

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

diff --git a/code_perl/Maasha/Align.pm b/code_perl/Maasha/Align.pm
index 55b4c2f9f0f6b9a698aa1278317a1599626479e4..622846dc9c374117fb41d588d571f6dd550cd9b3 100644 (file)
--- a/code_perl/Maasha/Align.pm
+++ b/code_perl/Maasha/Align.pm
@@ -480,9 +480,9 @@ sub align_tile
 
         $type = Maasha::Seq::seq_guess_type( $seq1 );
 
-        if ( $type eq "rna" ) {
+        if ( $type =~ /rna/i ) {
             $seq2 = Maasha::Seq::rna_revcomp( $seq1 );
-        } elsif ( $type eq "dna" ) {
+        } elsif ( $type =~ /dna/i ) {
             $seq2 = Maasha::Seq::dna_revcomp( $seq1 );
         } else {
             Maasha::Common::error( qq(Bad sequence type->$type) );