From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 10 May 2011 14:15:02 +0000 (+0000)
Subject: added fix for negative 454 decimal values
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;ds=sidebyside;h=503ce0da86ded4e33fd7fb6b517bada4f4318447;p=biopieces.git

added fix for negative 454 decimal values

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1397 74ccb610-7750-0410-82ae-013aeee3265d
---

diff --git a/code_perl/Maasha/Fastq.pm b/code_perl/Maasha/Fastq.pm
index 5015ef3..974c9c9 100644
--- a/code_perl/Maasha/Fastq.pm
+++ b/code_perl/Maasha/Fastq.pm
@@ -427,6 +427,7 @@ sub dec_str2solexa_str
 
     # Returns a string.
 
+    $scores =~ s/(-\d{1,2})/0/g;
     $scores =~ s/(\d{1,2});?/dec2solexa( $1 )/eg;
 
     return $scores;