client: avoid "Use of uninitialized value in pattern match (m//)" perl warnings.

When the accountd socket can't be reached.

2 files changed, 7 insertions, 2 deletions

diff --git a/Changelog b/Changelog
index 51f9728..ac8102c 100644
--- a/Changelog
+++ b/Changelog
@@ -42,6 +42,8 @@ lacme (0.7.1) upstream;
  - client: fail immediately when the accountd is unreachable.
  - Makefile: set executable bit for $(bindir)/lacme-accountd and
    $(sbindir)/lacme.
+ - client: avoid "Use of uninitialized value in pattern match (m//)"
+   perl warnings when the accountd socket can't be reached.
 
  -- Guilhem Moulin <guilhem@fripost.org>  Wed, 09 Dec 2020 18:23:22 +0100
 
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;