From 65ff7b75db80def2dd99f7d1c74e42d172d6d543 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Mon, 10 Jan 2011 14:13:35 +0000
Subject: [PATCH] fixed SEQ_LEN bug in transliterate_seq

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1200 74ccb610-7750-0410-82ae-013aeee3265d
---
 bp_bin/transliterate_seq | 2 ++
 1 file changed, 2 insertions(+)

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" };
         }
     }
 
-- 
2.39.2