fixed bug in remove_adaptor

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

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index 18bd446f3aa08e5a6ae49aa2ba16bf835f754507..453bc249b88eef0e0b509988461f1e0bd90af57e 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -4590,16 +4590,13 @@ sub script_remove_adaptor
 
             $record->{ "ADAPTOR_POS" } = $pos;
 
-            if ( $pos >= 0 )
+            if ( $pos >= 0 and not $options->{ "no_remove" } )
             {
-                if ( not $options->{ "no_remove" } )
-                {
-                    $record->{ "SEQ" }     = substr $record->{ "SEQ" }, 0, $pos;
-                    $record->{ "SEQ_LEN" } = $pos;
-                }
-
-                put_record( $record, $out );
+                $record->{ "SEQ" }     = substr $record->{ "SEQ" }, 0, $pos;
+                $record->{ "SEQ_LEN" } = $pos;
             }
+
+            put_record( $record, $out );
         }
         else
         {