Support returning 0 values in config files

(always worked on the second call due to the cache, but would return undef on the first call)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@955 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2008-10-27 09:49:22 +00:00 committed by Ask Bjørn Hansen
parent eff638dd79
commit 26f689191d

View File

@ -159,8 +159,11 @@ sub config {
return @config;
}
else {
return ($config[0] || $self->get_qmail_config($c, $type) || $defaults{$c});
}
return $config[0] if defined($config[0]);
my $val = $self->get_qmail_config($c, $type);
return $val if defined($val);
return $defaults{$c};
}
}
sub config_dir {