Lines Matching refs:value
50 foreach my $value (split(/,\s*/, $values)) {
52 $machine = $value;
54 $ident = $value;
55 } elsif ($keyword eq 'options' && $value =~ m/(\w+)=(.+)/) {
58 $config{$keyword}->{$value} = \∅
87 my ($keyword, $value) = split(' ', $_);
89 die("$generic is for $value, not $machine\n")
90 unless ($value eq $machine);
92 $line =~ s/$value/$ident/;
93 } elsif ($keyword eq 'options' && $value =~ m/(\w+)=(.+)/ &&
96 $value = $1;
97 if ($config{$keyword}->{$value} ne $2) {
98 my ($old, $new) = ($2, $config{$keyword}->{$value});
101 delete($config{$keyword}->{$value});
104 } elsif ($config{$keyword} && $config{$keyword}->{$value}) {
105 delete($config{$keyword}->{$value});
122 foreach my $value (sort(keys(%{$config{$keyword}}))) {
129 print "\t$value";
130 print "=$config{$keyword}->{$value}"
131 unless $config{$keyword}->{$value} == \∅