aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2017-06-02 15:48:09 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2017-06-02 15:48:09 +0300
commit36f66056a4ddbba8f300ef2fd15955e292e2755f (patch)
treef2c04c38970be8a3a620513c62e386e8572da234
parent748f538ad265bb08fec889053a4b1c77d5bc581e (diff)
downloadacmeman-36f66056a4ddbba8f300ef2fd15955e292e2755f.tar.gz
acmeman-36f66056a4ddbba8f300ef2fd15955e292e2755f.tar.bz2
Minor fixes
* acmeman (domain_cert_expires): Convert domain names to lowercase before comparing (coalesce): Use array as first argument to push
-rwxr-xr-xacmeman4
1 files 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;
}

Return to:

Send suggestions and report system problems to the System administrator.