X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4247547d2a925ddad7006cae89e5f9f1fda7d469..refs/heads/b-3.3.0:/SL/Locale.pm diff --git a/SL/Locale.pm b/SL/Locale.pm index 4198a339b..25e804333 100644 --- a/SL/Locale.pm +++ b/SL/Locale.pm @@ -95,7 +95,7 @@ sub _init { for my $file (@files) { if (open my $in, "<", "locale/$country/more/$file") { local $/ = undef; - my $code = <$file>; + my $code = <$in>; eval($code); close($in); $self->{texts}{$_} = $self->{more_texts}{$_} for keys %{ $self->{more_texts} };