From b54d248515357297d84a01cf45a42a6787c21240 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Fri, 12 Feb 2021 22:06:43 +0100
Subject: Replace Types::Serialiser::true with JSON::true.

This removes the dependency on Types::Serialiser.
---
 Changelog | 1 +
 INSTALL   | 1 -
 client    | 9 ++++-----
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/Changelog b/Changelog
index edf1d95..269d246 100644
--- a/Changelog
+++ b/Changelog
@@ -16,6 +16,7 @@ lacme (0.7.1) upstream;
    the most common options ('hash', 'keyUsage', 'CAfile', 'min-days') to
    the default section.
  - Raise client timeout from 10 to 30s.
+ - Remove dependency on Types::Serialiser.
 
  -- Guilhem Moulin <guilhem@fripost.org>  Wed, 09 Dec 2020 18:23:22 +0100
 
diff --git a/INSTALL b/INSTALL
index 155c7aa..4780989 100644
--- a/INSTALL
+++ b/INSTALL
@@ -32,7 +32,6 @@ lacme depends on OpenSSL and the following Perl modules:
   - MIME::Base64 (core module)
   - Net::SSLeay
   - POSIX (core module)
-  - Types::Serialiser
   - Socket (core module)
 
 On Debian GNU/Linux systems, these dependencies can be installed with
diff --git a/client b/client
index c5788dd..c1066c1 100755
--- a/client
+++ b/client
@@ -52,7 +52,6 @@ use MIME::Base64 qw/encode_base64 encode_base64url/;
 
 use Date::Parse ();
 use LWP::UserAgent ();
-use Types::Serialiser ();
 use JSON ();
 
 use Config::Tiny ();
@@ -226,7 +225,7 @@ sub acme_resource($%) {
 # Set the key ID (registration URI)
 sub set_kid(;$) {
     my $die = shift // 1;
-    my $r = acme_resource('newAccount', onlyReturnExisting => Types::Serialiser::true );
+    my $r = acme_resource('newAccount', onlyReturnExisting => JSON::true );
     if ($r->is_success()) {
         $KID = $r->header('Location');
     } elsif ($die) {
@@ -242,9 +241,9 @@ if ($COMMAND eq 'account') {
     my $flags = shift @ARGV;
 
     my %h = ( contact => \@ARGV ) if @ARGV;
-    $h{onlyReturnExisting}   = Types::Serialiser::true unless $flags & 0x01;
-    $h{termsOfServiceAgreed} = Types::Serialiser::true if     $flags & 0x02;
-    $h{status}               = "deactivated"           if     $flags & 0x04;
+    $h{onlyReturnExisting}   = JSON::true    unless $flags & 0x01;
+    $h{termsOfServiceAgreed} = JSON::true    if     $flags & 0x02;
+    $h{status}               = "deactivated" if     $flags & 0x04;
 
     print STDERR "Requesting new registration ".(@ARGV ? ("for ".join(', ', @ARGV)) : "")."\n"
         if $flags & 0x01;
-- 
cgit v1.2.3