daroche/nginx-otel-nix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: small improvements

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

18
tests/h2_otel.t
View file

@ -443,18 +443,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 {

6
tests/h2_otel_collector.t
View file

@ -449,11 +449,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};
}
###############################################################################

18
tests/otel.t
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 {

6
tests/otel_collector.t
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};
}
###############################################################################