From abd23923fa4d9ea609ce4178695fb73b34b7a5ea Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Fri, 12 Feb 2021 22:26:55 +0100
Subject: wibble

---
 lacme-accountd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lacme-accountd')

diff --git a/lacme-accountd b/lacme-accountd
index deccfa2..e946135 100755
--- a/lacme-accountd
+++ b/lacme-accountd
@@ -128,7 +128,7 @@ if ($OPTS{privkey} =~ /\A(file|gpg):(\p{Print}+)\z/) {
 else {
     die "Error: unsupported method: $OPTS{privkey}\n";
 }
-$JWK = JSON::->new->encode($JWK);
+my $JWK_STR = JSON::->new->encode($JWK);
 
 
 #############################################################################
@@ -173,7 +173,7 @@ if (defined $OPTS{'conn-fd'}) {
 sub conn($;$) {
     my $conn = shift;
     my $count = shift;
-    $conn->printflush( "$PROTOCOL_VERSION OK", "\r\n", $JWK, "\r\n" );
+    $conn->printflush( "$PROTOCOL_VERSION OK", "\r\n", $JWK_STR, "\r\n" );
 
     # sign whatever comes in
     while (defined (my $data = $conn->getline())) {
-- 
cgit v1.2.3