if ($x =~ /^(\w+)=(.*)/) {
Override($1 => $2);
} elsif ($x =~ /^-(\w+)$/) {
- Override($1 => 1);
+ Override($1 => 0);
delete $vars{$1};
} elsif ($x =~ /^(\w+)$/) {
Override($1 => 1);
} else {
- print STDERR "Invalid option $_\n";
+ print STDERR "Invalid option $x\n";
exit 1;
}
}