X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/79dea6ab7b56149b02d2910ea56f26f13afea291..refs/heads/mebil-0.1:/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} };