$qual = get_qual( $qual_in );
check_names( $fasta, $qual );
+ check_lengths( $fasta, $qual );
$record = {
SEQ_NAME => $fasta->[ 0 ],
}
+sub check_lengths
+{
+ # Martin A. Hansen, April 2011.
+
+ # Check if the lengths of the fasta and qual strings are the same
+ # and raise an error if not.
+
+ my ( $fasta, # fasta entry
+ $qual, # qual entry
+ ) = @_;
+
+ # Returns nothing.
+
+ my ( $f_len, $q_len );
+
+ $f_len = length $fasta->[ 1 ];
+ $q_len = length $qual->[ 1 ];
+
+ Maasha::Common::error( qq(lengths don't match "$f_len" != "$q_len") ) if $f_len != $q_len;
+}
+
+
# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<