Merge pull request #1742 from treygreer/master

fixed simple config load bug
This commit is contained in:
Alessandro Ranellucci 2014-02-07 02:12:42 +01:00
commit bba69ed22f

View File

@ -71,7 +71,7 @@ sub load_config {
my $self = shift; my $self = shift;
my ($config) = @_; my ($config) = @_;
foreach my $opt_key (grep $self->{config}->has($_), keys %$config) { foreach my $opt_key (grep $self->{config}->has($_), @{$config->get_keys}) {
my $value = $config->get($opt_key); my $value = $config->get($opt_key);
$self->{config}->set($opt_key, $value); $self->{config}->set($opt_key, $value);
$_->set_value($opt_key, $value) for @{$self->{optgroups}}; $_->set_value($opt_key, $value) for @{$self->{optgroups}};