refactoring of assemble_pairs

[biopieces.git] / bp_bin / translate_seq

diff --git a/bp_bin/translate_seq b/bp_bin/translate_seq
index 663012b29ec5aa7501607fed90782498f609fe42..3af052136459dd53a6d5f01b994dc324fe614752 100755 (executable)
--- a/bp_bin/translate_seq
+++ b/bp_bin/translate_seq
@@ -26,6 +26,7 @@
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
+use warnings;
 use strict;
 use Maasha::Biopieces;
 use Maasha::Seq;
@@ -49,7 +50,7 @@ while ( $record = Maasha::Biopieces::get_record( $in ) )
 {
     if ( $record->{ "SEQ" } )
     {
-        if ( Maasha::Seq::seq_guess_type( $record->{ "SEQ" } ) eq "dna" )
+        if ( Maasha::Seq::seq_guess_type( $record->{ "SEQ" } ) eq "DNA" )
         {
             foreach $frame ( @{ $options->{ "frames" } } )
             {