open FILE, "$file" or die "can't open file";
while (<FILE>) {
chomp;
- /^CONFIG_(.+)=(.+)/ and do {
+ /^CONFIG_(.+?)=(.+)/ and do {
$config{$1} = $2;
next;
};
- /^# CONFIG_(.+) is not set/ and do {
- $config{$1} = -1;
+ /^# CONFIG_(.+?) is not set/ and do {
+ $config{$1} = "#undef";
next;
};
/^#/ and next;
sub print_cfgline($$) {
my $name = shift;
my $val = shift;
- if ($val eq '-1') {
+ if ($val eq '#undef') {
print "# CONFIG_$name is not set\n";
} else {
print "CONFIG_$name=$val\n";