fixed minor bugs in remove_adaptor

git-svn-id: http://biopieces.googlecode.com/svn/trunk@232 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index 9ca6a329248a5ef2396d20eb2de11a60b1a2ffbb..18bd446f3aa08e5a6ae49aa2ba16bf835f754507 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -4592,8 +4592,10 @@ sub script_remove_adaptor
 
             if ( $pos >= 0 )
             {
-                if ( not $options->{ "no_remove" } ) {
-                    $record->{ "SEQ" } = substr $record->{ "SEQ" }, 0, $pos;
+                if ( not $options->{ "no_remove" } )
+                {
+                    $record->{ "SEQ" }     = substr $record->{ "SEQ" }, 0, $pos;
+                    $record->{ "SEQ_LEN" } = $pos;
                 }
 
                 put_record( $record, $out );