Make config.pl more resistant to misuse

This commit is contained in:
Manuel Pégourié-Gonnard 2015-06-23 17:42:51 +02:00
parent 61ee351af4
commit 7f9049baf4

View file

@ -100,12 +100,12 @@ for my $line (@config_lines) {
$line =~ s!^!//!; $line =~ s!^!//!;
} }
} elsif ($action eq "unset") { } elsif ($action eq "unset") {
if (!$done && $line =~ /^\s*#define\s*$name/) { if (!$done && $line =~ /^\s*#define\s*$name\b/) {
$line = '//' . $line; $line = '//' . $line;
$done = 1; $done = 1;
} }
} elsif (!$done && $action eq "set") { } elsif (!$done && $action eq "set") {
if ($line =~ m!^(?://)?\s*#define\s*$name!) { if ($line =~ m!^(?://)?\s*#define\s*$name\b!) {
$line = "#define $name"; $line = "#define $name";
$line .= " $value" if defined $value && $value ne ""; $line .= " $value" if defined $value && $value ne "";
$line .= "\n"; $line .= "\n";