aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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())) {