diff options
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/binlang | 6 | ||||
-rwxr-xr-x | tools/uplang | 8 |
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; |