diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-06-02 15:48:09 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-06-02 15:48:09 +0300 |
commit | 36f66056a4ddbba8f300ef2fd15955e292e2755f (patch) | |
tree | f2c04c38970be8a3a620513c62e386e8572da234 | |
parent | 748f538ad265bb08fec889053a4b1c77d5bc581e (diff) | |
download | acmeman-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-x | acmeman | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; } |