fix: small improvements

This commit is contained in:
Eugene Grebenschikov 2023-06-08 15:16:49 -07:00
parent 8343ebd635
commit 45e37dfda7
4 changed files with 18 additions and 30 deletions

View file

@ -394,11 +394,9 @@ sub get_ssl_socket {
sub get_attr {
my($attr, $type, $obj) = @_;
for (@{$$obj{"attributes"}}) {
return $$_{"value"}{$type} if ($$_{"key"} eq $attr);
}
my ($res) = grep { $$_{"key"} eq $attr } @{$$obj{"attributes"}};
return undef;
return $res->{"value"}{$type};
}
###############################################################################