diff options
| -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())) { |