3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.4 2002/12/04 07:38:07 jonen |
7 |
|
# + deep copy |
8 |
|
# |
9 |
# Revision 1.3 2002/12/01 22:18:28 joko |
# Revision 1.3 2002/12/01 22:18:28 joko |
10 |
# - no interactive implicit deploy |
# - no interactive implicit deploy |
11 |
# + only test integrity if storage available |
# + only test integrity if storage available |
94 |
$cfg_locator->{name} = $name; |
$cfg_locator->{name} = $name; |
95 |
|
|
96 |
# merge in specific settings |
# merge in specific settings |
97 |
foreach (keys %$db_config) { |
my $specific = deep_copy($db_config); |
98 |
$cfg_locator->{$_} = $db_config->{$_}; |
foreach (keys %$specific) { |
99 |
|
$cfg_locator->{$_} = $specific->{$_}; |
100 |
} |
} |
101 |
|
|
102 |
# HACK: transfer dsn from main to dbi settings |
# HACK: transfer dsn from main to dbi settings |