diff options
Diffstat (limited to 'acmeman')
-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; } |