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

@ -390,18 +390,14 @@ sub get_ssl_socket {
sub get_attr {
my($attr, $type, $obj) = @_;
for (keys %{$obj}) {
if ($_ =~ /^attribute\d+/) {
if ($$obj{$_}{key} eq '"' . $attr . '"') {
if ($type eq 'string_value') {
$$obj{$_}{value}{$type} =~ s/(^\")|(\"$)//g;
}
return $$obj{$_}{value}{$type}
}
}
}
my ($res) = grep {
$_ =~ /^attribute\d+/ && $$obj{$_}{key} eq '"' . $attr . '"'
} keys %{$obj};
return undef;
$$obj{$res}{value}{$type} =~ s/(^\")|(\"$)//g
if $res && $type eq 'string_value';
return $$obj{$res}{value}{$type};
}
sub decode_protobuf {