removed debug message

[biopieces.git] / bp_bin / transliterate_seq

diff --git a/bp_bin/transliterate_seq b/bp_bin/transliterate_seq
index 2908163708a2c9d3570ead04a2d82145f021b4f2..14dcb299f9ee0aecbd71af38fab9781119138941 100755 (executable)
--- a/bp_bin/transliterate_seq
+++ b/bp_bin/transliterate_seq
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl -w
+#!/usr/bin/env perl
 
 # Copyright (C) 2007-2009 Martin A. Hansen.
 
@@ -26,6 +26,7 @@
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
+use warnings;
 use strict;
 use Maasha::Biopieces;
 
@@ -58,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" };
         }
     }