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