From 0ca64b6236f8fe767181214a97d8428d473b8e32 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Wed, 17 Feb 2021 11:36:49 +0100
Subject: client: avoid "Use of uninitialized value in pattern match (m//)"
 perl warnings.

When the accountd socket can't be reached.
---
 Changelog | 2 ++
 client    | 7 +++++--
 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;
 
-- 
cgit v1.2.3