summaryrefslogtreecommitdiff
path: root/tools/binlang
diff options
context:
space:
mode:
Diffstat (limited to 'tools/binlang')
-rwxr-xr-xtools/binlang6
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/binlang b/tools/binlang
index 2f3753a7cd..bb47238db7 100755
--- a/tools/binlang
+++ b/tools/binlang
@@ -60,7 +60,7 @@ while(<ENG>) {
60 } 60 }
61 # get rid of DOS newlines 61 # get rid of DOS newlines
62 $_ =~ s/\r//g; 62 $_ =~ s/\r//g;
63 if($_ =~ / *([a-z]+): *(.*)/) { 63 if($_ =~ /^ *([a-z]+): *(.*)/) {
64 ($var, $value) = ($1, $2); 64 ($var, $value) = ($1, $2);
65 $set{$var} = $value; 65 $set{$var} = $value;
66 66
@@ -75,13 +75,13 @@ while(<ENG>) {
75close(ENG); 75close(ENG);
76 76
77while(<LANG>) { 77while(<LANG>) {
78 if($_ =~ / *\#/) { 78 if($_ =~ /^ *\#/) {
79 # comment 79 # comment
80 next; 80 next;
81 } 81 }
82 # get rid of DOS newlines 82 # get rid of DOS newlines
83 $_ =~ s/\r//g; 83 $_ =~ s/\r//g;
84 if($_ =~ / *([a-z]+): *(.*)/) { 84 if($_ =~ /^ *([a-z]+): *(.*)/) {
85 ($var, $value) = ($1, $2); 85 ($var, $value) = ($1, $2);
86 # print "$var => $value\n"; 86 # print "$var => $value\n";
87 87