added tests for find_gaps

[biopieces.git] / bp_bin / find_gaps

diff --git a/bp_bin/find_gaps b/bp_bin/find_gaps
index f885f82ff74a99d496230c2029e545441cdf73ba..300ae0952b9cb9c0c194eab4d3bf7087d490aff2 100755 (executable)
--- a/bp_bin/find_gaps
+++ b/bp_bin/find_gaps
@@ -47,6 +47,8 @@ $out = Maasha::Biopieces::write_stream( $options->{ "stream_out" } );
 
 while ( $record = Maasha::Biopieces::get_record( $in ) )
 {
+    Maasha::Biopieces::put_record( $record, $out );
+
     if ( exists $record->{ 'SEQ' } )
     {
         $gaps = find_gaps( $record->{ 'SEQ' }, $options->{ 'min_len' } );
@@ -58,8 +60,6 @@ while ( $record = Maasha::Biopieces::get_record( $in ) )
             Maasha::Biopieces::put_record( $gap, $out ); 
         }
     }
-
-    Maasha::Biopieces::put_record( $record, $out );
 }
 
 Maasha::Biopieces::close_stream( $in );