From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 14 Oct 2011 09:50:26 +0000 (+0000)
Subject: fixed critical missing uc bug in uniq_seq
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ddd725e70477c8c6e0a40aba718d5fd82966659e;p=biopieces.git

fixed critical missing uc bug in uniq_seq

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

diff --git a/bp_bin/uniq_seq b/bp_bin/uniq_seq
index a261875..fc3e43d 100755
--- a/bp_bin/uniq_seq
+++ b/bp_bin/uniq_seq
@@ -50,7 +50,7 @@ $out = Maasha::Biopieces::write_stream( $options->{ "stream_out" } );
 while ( $record = Maasha::Biopieces::get_record( $in ) ) 
 {
     if ( $record->{ 'SEQ' } ) {
-        $hash{ $record->{ 'SEQ' } }++;
+        $hash{ uc $record->{ 'SEQ' } }++;
     } else {
         Maasha::Biopieces::put_record( $record, $out );
     }