X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bp_bin%2Ftransliterate_seq;h=14dcb299f9ee0aecbd71af38fab9781119138941;hb=5de6112b70b59420b245ce636a8b2e3c90acbe00;hp=a81d328d9a99ac54936a086caff7c03c3b7f993d;hpb=9bf550c4335d8860c5f6f9c4db0f385f1b36c1dd;p=biopieces.git

diff --git a/bp_bin/transliterate_seq b/bp_bin/transliterate_seq
index a81d328..14dcb29 100755
--- a/bp_bin/transliterate_seq
+++ b/bp_bin/transliterate_seq
@@ -59,6 +59,8 @@ while ( $record = Maasha::Biopieces::get_record( $in ) )
             eval "\$record->{ 'SEQ' } =~ tr/$search/$replace/";
         } elsif ( $delete ) {
             eval "\$record->{ 'SEQ' } =~ tr/$delete//d";
+
+            $record->{ "SEQ_LEN" } = length $record->{ "SEQ" };
         }
     }