diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2020-03-03 14:54:13 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2020-03-03 14:54:13 +0200 |
commit | 7532baa6300ab78c08d99647a49265402cb41c7e (patch) | |
tree | 951a682424e36dc2d6a427237fc6aa3bd33e165b | |
parent | 3000780b55437ef04db32ec860719d16cd08978b (diff) | |
download | ping903-7532baa6300ab78c08d99647a49265402cb41c7e.tar.gz ping903-7532baa6300ab78c08d99647a49265402cb41c7e.tar.bz2 |
inspect: remove left-over grep
-rwxr-xr-x | examples/inspect | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/inspect b/examples/inspect index 7b10184..af3d3de 100755 --- a/examples/inspect +++ b/examples/inspect @@ -114,7 +114,7 @@ unless ($response->is_success) { } my $resp = JSON->new->decode($response->decoded_content); -foreach my $kw (grep { $_ ne 'ip-list' } sort keys %$resp) { +foreach my $kw (sort keys %$resp) { my $val = $resp->{$kw} or next; if ($kw eq 'auth') { my $delim = ''; |