summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/binlang6
-rwxr-xr-xtools/uplang8
2 files changed, 7 insertions, 7 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>) {
}
# get rid of DOS newlines
$_ =~ s/\r//g;
- if($_ =~ / *([a-z]+): *(.*)/) {
+ if($_ =~ /^ *([a-z]+): *(.*)/) {
($var, $value) = ($1, $2);
$set{$var} = $value;
@@ -75,13 +75,13 @@ while(<ENG>) {
close(ENG);
while(<LANG>) {
- if($_ =~ / *\#/) {
+ if($_ =~ /^ *\#/) {
# comment
next;
}
# get rid of DOS newlines
$_ =~ s/\r//g;
- if($_ =~ / *([a-z]+): *(.*)/) {
+ if($_ =~ /^ *([a-z]+): *(.*)/) {
($var, $value) = ($1, $2);
# print "$var => $value\n";
diff --git a/tools/uplang b/tools/uplang
index d0897ba46c..41730fb3d3 100755
--- a/tools/uplang
+++ b/tools/uplang
@@ -11,12 +11,12 @@ MOO
my %ids;
open(ENG, "<$ARGV[0]");
while(<ENG>) {
- if($_ =~ / *\#/) {
+ if($_ =~ /^ *\#/) {
# comment
next;
}
$_ =~ s/\r//g;
- if($_ =~ / *([a-z]+): *(.*)/) {
+ if($_ =~ /^ *([a-z]+): *(.*)/) {
($var, $value) = ($1, $2);
# print "$var => $value\n";
@@ -37,13 +37,13 @@ close(ENG);
undef %set;
open(NEW, "<$ARGV[1]");
while(<NEW>) {
- if($_ =~ / *\#/) {
+ if($_ =~ /^ *\#/) {
# comment
next;
}
$_ =~ s/\r//g;
- if($_ =~ / *([a-z]+): *(.*)/) {
+ if($_ =~ /^ *([a-z]+): *(.*)/) {
($var, $value) = ($1, $2);
$set{$var} = $value;