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::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::Common::error( "Sequence longer than 1024 not allowed") if length( $entry->[ SEQ ] ) > 1024;
Maasha::Fasta::put_entry( $entry, $fh_out );
$type = "FASTA";