Lines Matching refs:config
41 my %config;
56 $config{$keyword}->{$1} = $2;
58 $config{$keyword}->{$value} = \∅
94 $config{$keyword} && $config{$keyword}->{$1} &&
95 $config{$keyword}->{$1} != \&EMPTY) {
97 if ($config{$keyword}->{$value} ne $2) {
98 my ($old, $new) = ($2, $config{$keyword}->{$value});
101 delete($config{$keyword}->{$value});
102 delete($config{$keyword})
103 unless %{$config{$keyword}};
104 } elsif ($config{$keyword} && $config{$keyword}->{$value}) {
105 delete($config{$keyword}->{$value});
106 delete($config{$keyword})
107 unless %{$config{$keyword}};
119 if (%config) {
121 foreach my $keyword (sort(keys(%config))) {
122 foreach my $value (sort(keys(%{$config{$keyword}}))) {
130 print "=$config{$keyword}->{$value}"
131 unless $config{$keyword}->{$value} == \∅