From ac1fab264b4182226aa471b755c02787b6cdf713 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Wed, 2 Nov 2011 09:47:17 +0000 Subject: [PATCH] added length check to bowtie_seq git-svn-id: http://biopieces.googlecode.com/svn/trunk@1611 74ccb610-7750-0410-82ae-013aeee3265d --- bp_bin/bowtie_seq | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bp_bin/bowtie_seq b/bp_bin/bowtie_seq index 57b6731..19368f8 100755 --- a/bp_bin/bowtie_seq +++ b/bp_bin/bowtie_seq @@ -80,7 +80,7 @@ while ( $record = Maasha::Biopieces::get_record( $in ) ) 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"; @@ -88,7 +88,7 @@ while ( $record = Maasha::Biopieces::get_record( $in ) ) 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"; -- 2.39.5