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.
---
 client | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'client')

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