diff options
| author | Guilhem Moulin <guilhem@fripost.org> | 2021-02-12 22:26:55 +0100 |
|---|---|---|
| committer | Guilhem Moulin <guilhem@fripost.org> | 2021-02-12 22:30:35 +0100 |
| commit | abd23923fa4d9ea609ce4178695fb73b34b7a5ea (patch) | |
| tree | 88cd3386429ae5c9db4a23f403d06975d21b7404 | |
| parent | 49d90dbaf471931f85f9e97bc57ddc0fde1f2fb7 (diff) | |
wibble
| -rwxr-xr-x | lacme-accountd | 4 |
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())) { |