use Maasha::Fasta;
use Maasha::Calc;
+use constant {
+ SEQ_NAME => 0,
+ SEQ => 1,
+ SCORES => 2,
+};
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
if ( $entry = Maasha::Fastq::biopiece2fastq( $record ) )
{
Maasha::Common::error( "Mixed FASTA and FASTQ entries in stream" ) if defined $type and $type ne "FASTQ";
+ Maasha::Common::error( "Sequence longer than 1024 not allowed") if length( $entry->[ SEQ ] ) > 1024;
Maasha::Fastq::put_entry( $entry, $fh_out );
$type = "FASTQ";
elsif ( $entry = Maasha::Fasta::biopiece2fasta( $record ) )
{
Maasha::Common::error( "Mixed FASTA and FASTQ entries in stream" ) if defined $type and $type ne "FASTA";
+ Maasha::Common::error( "Sequence longer than 1024 not allowed") if length( $entry->[ SEQ ] ) > 1024;
Maasha::Fasta::put_entry( $entry, $fh_out );
$type = "FASTA";