aboutsummaryrefslogtreecommitdiffstats
path: root/client
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2021-02-17 11:36:49 +0100
committerGuilhem Moulin <guilhem@fripost.org>2021-02-18 00:42:32 +0100
commit0ca64b6236f8fe767181214a97d8428d473b8e32 (patch)
treede66fd805b50e782b5a84c98370d1e60119a9ad6 /client
parentbddbc17b87f3de29657f1dd2b9a065901e955c15 (diff)
client: avoid "Use of uninitialized value in pattern match (m//)" perl warnings.
When the accountd socket can't be reached.
Diffstat (limited to 'client')
-rwxr-xr-xclient7
1 files changed, 5 insertions, 2 deletions
diff --git a/client b/client
index bcdf6cd..e29d2a0 100755
--- a/client
+++ b/client
@@ -75,8 +75,11 @@ open (my $S, '+<&=', $1+0) or die "fdopen $1: $!";
# Read the protocol version and JSON Web Key (RFC 7517) from the
# lacme-accountd socket
#
-die "Error: Invalid client version\n" unless
- $S->getline() =~ /\A(\d+) OK(?:.*)\r\n\z/ and $1 == $PROTOCOL_VERSION;
+do {
+ my $greeting = $S->getline();
+ die "Error: Invalid client version\n" unless defined $greeting and
+ $greeting =~ /\A(\d+) OK(?:.*)\r\n\z/ and $1 == $PROTOCOL_VERSION;
+};
my $JWK = JSON::->new->decode($S->getline());
my $KID;