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

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
line wrap: on
line diff
--- a/Lib/IMPL/Resources/Strings.pm	Fri Jun 14 03:32:55 2013 +0400
+++ b/Lib/IMPL/Resources/Strings.pm	Fri Jun 14 15:37:34 2013 +0400
@@ -87,8 +87,8 @@
 sub ParseStringsMap {
     my ($fname) = @_;
     
-    open my $hRes, "<:encoding($Encoding)", findFile($fname) or die "Failed to open file $fname: $!";
-    
+    open my $hRes, "<:encoding($Encoding)", $fname or die "Failed to open file $fname: $!";
+    local $_;
     my %Map;
     my $line = 1;
     while (<$hRes>) {