From 09d4e6f58254cc18803e9746b84e521924c55aee Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Sat, 1 Jul 2017 19:59:23 +0200
Subject: Avoid hash slices.

That's mostly what prevents us from supporting Perl older than 5.20.
---
 lacme | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lacme b/lacme
index 1065e67..478f2e4 100755
--- a/lacme
+++ b/lacme
@@ -532,7 +532,7 @@ sub acme_client($@) {
     # child doesn't have access to the parent's memory
     my @fileno = map { fileno($_) =~ /^(\d+)$/ ? $1 : die } ($CONFFILE, $client); # untaint fileno
     set_FD_CLOEXEC($client, 1);
-    my $rv = spawn({%$args{qw/in out/}, child => sub() {
+    my $rv = spawn({in => $args->{in}, out => $args->{out}, child => sub() {
         drop_privileges($conf->{user}, $conf->{group}, $args->{chdir} // '/');
         set_FD_CLOEXEC($_, 0) foreach ($CONFFILE, $client);
         seek($CONFFILE, SEEK_SET, 0) or die "Can't seek: $!";
@@ -723,7 +723,7 @@ elsif ($COMMAND eq 'new-cert') {
         }
 
         # generate the CSR
-        my $csr = gen_csr(%$conf{qw/certificate-key subject subjectAltName keyUsage hash/}) // do {
+        my $csr = gen_csr(map {$_ => $conf->{$_}} qw/certificate-key subject subjectAltName keyUsage hash/) // do {
             print STDERR "[$s] Warning: Couldn't generate CSR, skipping\n";
             $rv = 1;
             next;
-- 
cgit v1.2.3