aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/App/Acmeman/Config.pm2
-rw-r--r--lib/App/Acmeman/Source.pm3
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/App/Acmeman/Config.pm b/lib/App/Acmeman/Config.pm
index 7c05985..6b81a25 100644
--- a/lib/App/Acmeman/Config.pm
+++ b/lib/App/Acmeman/Config.pm
@@ -52,7 +52,7 @@ sub mangle {
if (my $fnode = $self->getnode('files')) {
while (my ($k, $v) = each %{$fnode->subtree}) {
$v->set('files', $k, 'type', 'split')
- unless $v->has_key('type', 'split');
+ unless $v->has_key('type');
if ($v->subtree('type') eq 'single') {
unless ($v->has_key('certificate-file')) {
$self->error("files.$k.certificate-file not defined");
diff --git a/lib/App/Acmeman/Source.pm b/lib/App/Acmeman/Source.pm
index abae342..95e7c03 100644
--- a/lib/App/Acmeman/Source.pm
+++ b/lib/App/Acmeman/Source.pm
@@ -35,7 +35,8 @@ sub is_set {
sub define_domain {
my $self = shift;
my $cn = shift || croak "domain name must be given";
- $self->set('domain', $cn, 'files', 'default');
+ $self->set('domain', $cn, 'files', 'default')
+ unless $self->is_set('domain', $cn, 'files');
}
sub define_alias {

Return to:

Send suggestions and report system problems to the System administrator.