diff options
| author | Sergey Poznyakoff <gray@gnu.org> | 2018-02-28 09:19:56 +0200 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org> | 2018-02-28 09:26:35 +0200 |
| commit | 9d4b801aec884cd2c36390008baef23159473a31 (patch) | |
| tree | fb4cee4047f089e0c1924d1b90a39d57b2eaa838 /lib | |
| parent | c95c16005cb6ffafd27e884c405b839e049384a6 (diff) | |
| download | acmeman-9d4b801aec884cd2c36390008baef23159473a31.tar.gz acmeman-9d4b801aec884cd2c36390008baef23159473a31.tar.bz2 | |
Bigfixes
* Makefile.PL: Require Crypt::OpenSSL::X509 1.808 (need the
Crypt::OpenSSL::X509::Extension to_string method)
* acmeman (domain_cert_expires): Get rid of the the old kludge
for retrieving SANs.
(coalesce): Fix Domain merging.
(cb_parse_bool): Bugfix.
* lib/App/Acmeman/Domain.pm (_domain_plus): Modify and return
a cloned copy of $a.
Fix typo in the declaration of overloaded '+'
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/App/Acmeman/Domain.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/App/Acmeman/Domain.pm b/lib/App/Acmeman/Domain.pm index 64d4275..203e63c 100644 --- a/lib/App/Acmeman/Domain.pm +++ b/lib/App/Acmeman/Domain.pm @@ -3,6 +3,7 @@ package App::Acmeman::Domain; use strict; use warnings; use Carp; +use Clone; require Exporter; our @ISA = qw(Exporter); @@ -97,14 +98,16 @@ sub _domain_plus { carp "righthand-side argument should be a App::Acmeman::Domain" unless $b->isa('App::Acmeman::Domain'); + $a = Clone::clone($a); push @{$a->{_alt}}, $b->cn unless $a->contains($b->cn); @{$a->{_alt}} = uniq($a->alt, $b->alt); + return $a; } use overload cmp => \&_domain_cmp, - '+' => \&domain_plus, + '+' => \&_domain_plus, '""' => sub { $_[0]->cn }; sub cn { |