aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Changelog2
-rwxr-xr-xclient7
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;