corrected slight bug in grab

[biopieces.git] / bp_bin / grab

diff --git a/bp_bin/grab b/bp_bin/grab
index 95b82c8676e819d1390c3bbf2fa47b6e0e0b38b2..85063dec0234c82d30e481b15948fd55fc47ef37 100755 (executable)
--- a/bp_bin/grab
+++ b/bp_bin/grab
@@ -228,7 +228,7 @@ sub grab_regex
 
     if ( $keys )
     {
-        map { return 1 if $record->{ $_ } =~ /$regex/ } @{ $keys };
+        map { return 1 if exists $record->{ $_ } and $record->{ $_ } =~ /$regex/ } @{ $keys };
     }
     else
     {