Revision 6c45a4db
Von Moritz Bunkus vor fast 13 Jahren hinzugefügt
SL/User.pm | ||
---|---|---|
77 | 77 |
my @dir = grep(!/(^\.\.?$|\..*)/, readdir(DIR)); |
78 | 78 |
|
79 | 79 |
foreach my $dir (@dir) { |
80 |
next unless open(FH, "locale/$dir/LANGUAGE");
|
|
81 |
@language = <FH>;
|
|
82 |
close FH;
|
|
80 |
next unless open(my $fh, '<:encoding(UTF-8)', "locale/$dir/LANGUAGE");
|
|
81 |
@language = <$fh>;
|
|
82 |
close $fh;
|
|
83 | 83 |
|
84 | 84 |
$cc{$dir} = "@language"; |
85 | 85 |
} |
Auch abrufbar als: Unified diff
LANGUAGE-Dateien als UTF-8 einlesen
Fix für Bug 1720.