commit 7f9049baf4caed031e2ccdcf41db9f687f568d2e
author Manuel Pégourié-Gonnard <mpg@elzevir.fr> Tue Jun 23 17:42:51 2015 +0200
committer Manuel Pégourié-Gonnard <mpg@elzevir.fr> Tue Jun 23 23:30:16 2015 +0200
tree 7454c3db32ad34c33ef046c41f2079f4669d81a1
parent 61ee351af47b4763d7cc5bc5ff71be22ac50af38

Make config.pl more resistant to misuse

scripts/config.pl

diff --git a/scripts/config.pl b/scripts/config.pl
index 71dd217..f673c2a 100755
--- a/scripts/config.pl
+++ b/scripts/config.pl
@@ -100,12 +100,12 @@
             $line =~ s!^!//!;
         }
     } elsif ($action eq "unset") {
-        if (!$done && $line =~ /^\s*#define\s*$name/) {
+        if (!$done && $line =~ /^\s*#define\s*$name\b/) {
             $line = '//' . $line;
             $done = 1;
         }
     } elsif (!$done && $action eq "set") {
-        if ($line =~ m!^(?://)?\s*#define\s*$name!) {
+        if ($line =~ m!^(?://)?\s*#define\s*$name\b!) {
             $line = "#define $name";
             $line .= " $value" if defined $value && $value ne "";
             $line .= "\n";