From 27cf810ff3a325d39b353c927502382674d37c03 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 29 Aug 2008 07:04:00 +0000
Subject: [PATCH] fixed minor bugs in remove_adaptor

git-svn-id: http://biopieces.googlecode.com/svn/trunk@232 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Biopieces.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index 9ca6a32..18bd446 100644
--- 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 );
-- 
2.39.5