added fix for negative 454 decimal values

[biopieces.git] / code_perl / Maasha / Fastq.pm

diff --git a/code_perl/Maasha/Fastq.pm b/code_perl/Maasha/Fastq.pm
index 5015ef36a2c6388e6984bf2fc62a3d5fdea48bf3..974c9c99abfc5c0c4e5dc9d08a259d5bcb0c0291 100644 (file)
--- 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;