X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bp_bin%2Fgrab;h=ae5b8315bfe8de8da27412d63edb7b90ece84ea6;hb=7527c4f0b2424dc10679912ce89ad92fca83974b;hp=95b82c8676e819d1390c3bbf2fa47b6e0e0b38b2;hpb=8a47bed7f528b606ae2302c41bf1c28917a73ea5;p=biopieces.git diff --git a/bp_bin/grab b/bp_bin/grab index 95b82c8..ae5b831 100755 --- 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 $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 $record->{ $_ } and exists $lookup_hash->{ $record->{ $_ } } } keys %{ $record }; } } @@ -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 {