From 48e4e38881e71981c5b78e28de19e8e72eca342e Mon Sep 17 00:00:00 2001 From: martinahansen Date: Tue, 23 Sep 2008 05:09:10 +0000 Subject: [PATCH] backup time git-svn-id: http://biopieces.googlecode.com/svn/trunk@263 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/Solexa.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/code_perl/Maasha/Solexa.pm b/code_perl/Maasha/Solexa.pm index 0fe7f10..d7c0d75 100644 --- a/code_perl/Maasha/Solexa.pm +++ b/code_perl/Maasha/Solexa.pm @@ -168,11 +168,11 @@ sub solexa2biopiece $seqs[ $i ] = lc $seqs[ $i ] if $scores[ $i ] < $quality; } - $record{ "SEQ_NAME" } = $entry->[ SEQ_NAME ]; - $record{ "SEQ" } = $entry->[ SEQ ]; - $record{ "SCORES" } = $entry->[ SCORE ]; - $record{ "SEQ_LEN" } = scalar @seqs; - $record{ "SCORE_MEAN" } = sprintf ( "%.2f", Maasha::Calc::mean( \@scores ) ); + $record{ "SEQ_NAME" } = $entry->[ SEQ_NAME ]; + $record{ "SEQ" } = $entry->[ SEQ ]; + $record{ "SCORES" } = $entry->[ SCORE ]; + $record{ "SEQ_LEN" } = scalar @seqs; + $record{ "SCORE_MEAN" } = sprintf ( "%.2f", Maasha::Calc::mean( \@scores ) ); return wantarray ? %record : \%record; } -- 2.39.5