Lines Matching refs:config
16 my $config = shift;
21 if (!defined($config->{$idx}) or !$mod_plus or
22 $config->{$idx} eq '#undef' or $newval eq 'y') {
23 $config->{$idx} = $newval;
30 my %config;
36 set_config(\%config, $1, $2, $mod_plus);
40 set_config(\%config, $1, "#undef", $mod_plus);
46 return \%config;
53 my %config;
55 foreach my $config (keys %$cfg1) {
56 my $val1 = $cfg1->{$config};
57 my $val2 = $cfg2->{$config};
59 $config{$config} = $val1;
62 return \%config;
70 my %config;
75 foreach my $config (keys %cfg) {
76 if ($mod_plus and $config{$config}) {
77 next if $config{$config} eq "y";
78 next if $cfg{$config} eq '#undef';
80 $config{$config} = $cfg{$config};
83 return \%config;
90 my %config;
92 foreach my $config (keys %$cfg2) {
93 if (!defined($cfg1->{$config}) or $cfg1->{$config} ne $cfg2->{$config}) {
94 next if $new_only and !defined($cfg1->{$config}) and $cfg2->{$config} eq '#undef';
95 $config{$config} = $cfg2->{$config};
98 return \%config
104 my %config = %{$cfg1};
106 foreach my $config (keys %$cfg2) {
107 delete $config{$config};
109 return \%config;
126 my %config = %$cfg;
127 foreach my $config (sort keys %config) {
128 print_cfgline($config, $config{$config});