refactoring of assemble_pairs

[biopieces.git] / bp_bin / read_tab

diff --git a/bp_bin/read_tab b/bp_bin/read_tab
index f223523b2c05c91cdda384011217360ce0243018..a8dede9d9ce979fb12c20718de8c993b1027cf2b 100755 (executable)
--- a/bp_bin/read_tab
+++ b/bp_bin/read_tab
@@ -28,6 +28,7 @@
 
 use warnings;
 use strict;
+use Data::Dumper;
 use Maasha::Filesys;
 use Maasha::Biopieces;
 
@@ -64,6 +65,8 @@ if ( $options->{ 'data_in' } )
 
     while ( $line = <$data_in> ) 
     {
+        chomp $line;
+
         if ( $skip )
         {
             $skip--;
@@ -81,8 +84,6 @@ if ( $options->{ 'data_in' } )
             next;
         }
 
-        chomp $line;
-
         undef $record;
         undef @fields2;