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 a261875b4de4b33742a6b323f016ce23fd5694c8..fc3e43db9ab25f940b80d5e5a9b8413b30daffb9 100755 (executable)
--- 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 );
     }