Mercurial > pub > Impl

comparison Lib/IMPL/Resources/Strings.pm @ 337:f4e14f32cf54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed bugs with string and local $_ added support for localized labels
author cin
date Fri, 14 Jun 2013 15:37:34 +0400
parents 1838bdb4d238
children 2eed076cb944
comparison
equal deleted inserted replaced
336:86336d451b82 337:f4e14f32cf54
85 } 85 }
86 86
87 sub ParseStringsMap { 87 sub ParseStringsMap {
88 my ($fname) = @_; 88 my ($fname) = @_;
89 89
90 open my $hRes, "<:encoding($Encoding)", findFile($fname) or die "Failed to open file $fname: $!"; 90 open my $hRes, "<:encoding($Encoding)", $fname or die "Failed to open file $fname: $!";
91 91 local $_;
92 my %Map; 92 my %Map;
93 my $line = 1; 93 my $line = 1;
94 while (<$hRes>) { 94 while (<$hRes>) {
95 chomp; 95 chomp;
96 $line ++ and next if /^\s*$/; 96 $line ++ and next if /^\s*$/;