aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2021-02-12 22:26:55 +0100
committerGuilhem Moulin <guilhem@fripost.org>2021-02-12 22:30:35 +0100
commitabd23923fa4d9ea609ce4178695fb73b34b7a5ea (patch)
tree88cd3386429ae5c9db4a23f403d06975d21b7404
parent49d90dbaf471931f85f9e97bc57ddc0fde1f2fb7 (diff)
wibble
-rwxr-xr-xlacme-accountd4
1 files changed, 2 insertions, 2 deletions
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())) {