diff options
Diffstat (limited to 'tools/binlang')
-rwxr-xr-x | tools/binlang | 6 |
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>) { | |||
75 | close(ENG); | 75 | close(ENG); |
76 | 76 | ||
77 | while(<LANG>) { | 77 | while(<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 | ||