]> git.donarmstrong.com Git - biopieces.git/commitdiff
fixed bug in uniq_vals causing clusters named 0 to be ignored
authormartinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Sat, 19 Nov 2011 09:10:21 +0000 (09:10 +0000)
committermartinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Sat, 19 Nov 2011 09:10:21 +0000 (09:10 +0000)
git-svn-id: http://biopieces.googlecode.com/svn/trunk@1667 74ccb610-7750-0410-82ae-013aeee3265d

bp_bin/uniq_vals

index 0bc6ce0aa8adcf017fe1742a07892e29b7e663f2..c9af962ad6b5a58ec21e1cac6c2132eb31734316 100755 (executable)
@@ -48,7 +48,7 @@ $out = Maasha::Biopieces::write_stream( $options->{ "stream_out" } );
 
 while ( $record = Maasha::Biopieces::get_record( $in ) ) 
 {
-    if ( $record->{ $options->{ "key" } } )
+    if ( exists $record->{ $options->{ "key" } } )
     {
         if ( not $hash{ $record->{ $options->{ "key" } } } and not $options->{ "invert" } )
         {