Bug 186337 - Param lookup should fall back to defaults

r=joel, a=justdave


git-svn-id: svn://10.0.0.236/trunk@135556 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
bbaetz%student.usyd.edu.au
2002-12-21 23:39:48 +00:00
parent b997358c68
commit 2ab5b50ebe

View File

@@ -121,9 +121,18 @@ sub Param {
my ($param) = @_;
# By this stage, the param must be in the hash
die "Can't find param named $param" unless (exists $param{$param});
die "Can't find param named $param" unless (exists $params{$param});
return $param{$param};
# When module startup code runs (which is does even via -c, when using
# |use|), we may try to grab params which don't exist yet. This affects
# tests, so have this as a fallback for the -c case
return $params{$param}->{default} if ($^C && not exists $param{$param});
# If we have a value for the param, return it
return $param{$param} if exists $param{$param};
# Else error out
die "No value for param $param";
}
sub GetParamList {