fixed nasty bug in grab where -E and pattern 0 failed

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

diff --git a/bp_bin/grab b/bp_bin/grab
index ae5b8315bfe8de8da27412d63edb7b90ece84ea6..3aefa1b81d3a237f1ca03c6383f9474a221881e0 100755 (executable)
--- a/bp_bin/grab
+++ b/bp_bin/grab
@@ -149,7 +149,7 @@ sub grab_lookup
 
     if ( $keys )
     {
-        map { return 1 if $record->{ $_ } and exists $lookup_hash->{ $record->{ $_ } } } @{ $keys };
+        map { return 1 if defined $record->{ $_ } and exists $lookup_hash->{ $record->{ $_ } } } @{ $keys };
     }
     else
     {