From 36f66056a4ddbba8f300ef2fd15955e292e2755f Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Fri, 2 Jun 2017 15:48:09 +0300
Subject: Minor fixes

* acmeman (domain_cert_expires): Convert domain names to lowercase
before comparing
(coalesce): Use array as first argument to push
---
 acmeman | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/acmeman b/acmeman
index a37c27e..bef9732 100755
--- a/acmeman
+++ b/acmeman
@@ -451,7 +451,7 @@ sub domain_cert_expires {
 	    # names:
 	    my $blob = $exts->{subjectAltName}->value();
 	    my @missing;
-	    foreach my $vh (sort { length($b) <=> length($a) }
+	    foreach my $vh (map { lc } sort { length($b) <=> length($a) }
 			         uniq($domain, @_)) {
 		unless ($blob =~ s/\Q$vh\E\b//) {
 		    push @missing, $vh;
@@ -816,7 +816,7 @@ sub coalesce {
 		     map { { ord => $i++, names => $_ } } @{$ref}) {
 	if (@vhost && $vhost[-1]->{names}[0] eq $ent->{names}[0]) {
 	    shift @{$ent->{names}};
-	    push $vhost[-1]->{names}, @{$ent->{names}};
+	    push @{$vhost[-1]->{names}}, @{$ent->{names}};
 	} else {
 	    push @vhost, $ent;
 	}
-- 
cgit v1.2.1