diff options
Diffstat (limited to 'tools/uplang')
-rwxr-xr-x | tools/uplang | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/uplang b/tools/uplang index d0897ba46c..41730fb3d3 100755 --- a/tools/uplang +++ b/tools/uplang | |||
@@ -11,12 +11,12 @@ MOO | |||
11 | my %ids; | 11 | my %ids; |
12 | open(ENG, "<$ARGV[0]"); | 12 | open(ENG, "<$ARGV[0]"); |
13 | while(<ENG>) { | 13 | while(<ENG>) { |
14 | if($_ =~ / *\#/) { | 14 | if($_ =~ /^ *\#/) { |
15 | # comment | 15 | # comment |
16 | next; | 16 | next; |
17 | } | 17 | } |
18 | $_ =~ s/\r//g; | 18 | $_ =~ s/\r//g; |
19 | if($_ =~ / *([a-z]+): *(.*)/) { | 19 | if($_ =~ /^ *([a-z]+): *(.*)/) { |
20 | ($var, $value) = ($1, $2); | 20 | ($var, $value) = ($1, $2); |
21 | # print "$var => $value\n"; | 21 | # print "$var => $value\n"; |
22 | 22 | ||
@@ -37,13 +37,13 @@ close(ENG); | |||
37 | undef %set; | 37 | undef %set; |
38 | open(NEW, "<$ARGV[1]"); | 38 | open(NEW, "<$ARGV[1]"); |
39 | while(<NEW>) { | 39 | while(<NEW>) { |
40 | if($_ =~ / *\#/) { | 40 | if($_ =~ /^ *\#/) { |
41 | # comment | 41 | # comment |
42 | next; | 42 | next; |
43 | } | 43 | } |
44 | $_ =~ s/\r//g; | 44 | $_ =~ s/\r//g; |
45 | 45 | ||
46 | if($_ =~ / *([a-z]+): *(.*)/) { | 46 | if($_ =~ /^ *([a-z]+): *(.*)/) { |
47 | ($var, $value) = ($1, $2); | 47 | ($var, $value) = ($1, $2); |
48 | 48 | ||
49 | $set{$var} = $value; | 49 | $set{$var} = $value; |