From 503ce0da86ded4e33fd7fb6b517bada4f4318447 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 10 May 2011 14:15:02 +0000
Subject: [PATCH] added fix for negative 454 decimal values

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1397 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Fastq.pm | 1 +
 1 file changed, 1 insertion(+)

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;
-- 
2.39.5