fix: small improvements
This commit is contained in:
parent
8343ebd635
commit
45e37dfda7
4 changed files with 18 additions and 30 deletions
|
|
@ -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};
|
||||
}
|
||||
|
||||
###############################################################################
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue