comparison Lib/IMPL/Resources/StringLocaleMap.pm @ 383:2f16f13b000c

DOM localization
author cin
date Thu, 23 Jan 2014 17:26:34 +0400
parents 99ac2e19c0cc
children
comparison
equal deleted inserted replaced
382:99ac2e19c0cc 383:2f16f13b000c
127 my $line = 1; 127 my $line = 1;
128 while (<$hRes>) { 128 while (<$hRes>) {
129 chomp; 129 chomp;
130 $line ++ and next if /^\s*$/; 130 $line ++ and next if /^\s*$/;
131 131
132 if (/^(\w+)\s*=\s*(.*)$/) { 132 if (/^([\w\.]+)\s*=\s*(.*)$/) {
133 $map{$1} = $2; 133 $map{$1} = $2;
134 } else { 134 } else {
135 die "Invalid resource format in $fname at $line"; 135 die "Invalid resource format in $fname at $line";
136 } 136 }
137 $line ++; 137 $line ++;