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; return @config;
} }
else { 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 { sub config_dir {