updated find_SNPs tests

[biopieces.git] / bp_bin / grab

diff --git a/bp_bin/grab b/bp_bin/grab
index 85063dec0234c82d30e481b15948fd55fc47ef37..8533a4ea3bcff4f398863b6113f7819203a80f9a 100755 (executable)
--- a/bp_bin/grab
+++ b/bp_bin/grab
@@ -149,7 +149,7 @@ sub grab_lookup
 
     if ( $keys )
     {
-        map { return 1 if exists $lookup_hash->{ $record->{ $_ } } } @{ $keys };
+        map { return 1 if defined $record->{ $_ } and exists $lookup_hash->{ $record->{ $_ } } } @{ $keys };
     }
     else
     {
@@ -158,7 +158,7 @@ sub grab_lookup
         }
 
         if ( not $keys_only ) {
-            map { return 1 if exists $lookup_hash->{ $record->{ $_ } } } keys %{ $record };
+            map { return 1 if defined $record->{ $_ } and exists $lookup_hash->{ $record->{ $_ } } } keys %{ $record };
         }
     }