fixed missing SEQ_LEN in read_454

[biopieces.git] / bp_bin / read_454

diff --git a/bp_bin/read_454 b/bp_bin/read_454
index 732e81df50f8850a94c9e5cfe360cad8d66f49fe..012bc3391525e83b1a7ecd958c2c9476e6265302 100755 (executable)
--- a/bp_bin/read_454
+++ b/bp_bin/read_454
@@ -75,6 +75,7 @@ if ( $options->{ 'data_in' } )
         $record = {
             SEQ_NAME    => $fasta->[ 0 ],
             SEQ         => $fasta->[ 1 ],
+            SEQ_LEN     => length $fasta->[ 1 ],
             SCORES      => $qual->[ 1 ],
         };