if ( $keys )
{
- map { return 1 if exists $lookup_hash->{ $record->{ $_ } } } @{ $keys };
+ map { return 1 if defined $record->{ $_ } and exists $lookup_hash->{ $record->{ $_ } } } @{ $keys };
}
else
{
}
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 };
}
}
if ( $keys )
{
- map { return 1 if $record->{ $_ } =~ /$regex/ } @{ $keys };
+ map { return 1 if exists $record->{ $_ } and $record->{ $_ } =~ /$regex/ } @{ $keys };
}
else
{