while ( $record = Maasha::Biopieces::get_record( $in ) )
{
- if ( $record->{ "SEQ_NAME" } and $record->{ "SEQ" } ) {
+ if ( $record->{ "SEQ_NAME" } and $record->{ "SEQ" } ) { # TODO use biopieces2fasta() instead
push @entries, [ $record->{ "SEQ_NAME" }, $record->{ "SEQ" } ];
} elsif ( $record->{ "Q_ID" } and $record->{ "SEQ" } ) {
push @entries, [ $record->{ "Q_ID" }, $record->{ "SEQ" } ];