Revision 71233175
Von Moritz Bunkus vor etwa 10 Jahren hinzugefügt
| scripts/locales.pl | ||
|---|---|---|
| 387 | 387 |
return unless (-f "$file"); |
| 388 | 388 |
|
| 389 | 389 |
my $fh = new FileHandle; |
| 390 |
open $fh, "$file" or die "$! : $file";
|
|
| 390 |
open $fh, '<:encoding(utf8)', $file or die "$! : $file";
|
|
| 391 | 391 |
|
| 392 | 392 |
my ($is_submit, $line_no, $sub_line_no) = (0, 0, 0); |
| 393 | 393 |
|
| ... | ... | |
| 517 | 517 |
my $file = shift; |
| 518 | 518 |
|
| 519 | 519 |
my $fh = new FileHandle; |
| 520 |
open $fh, "$file" or die "$! : $file";
|
|
| 520 |
open $fh, '<:encoding(utf8)', $file or die "$! : $file";
|
|
| 521 | 521 |
|
| 522 | 522 |
my @a = grep m/^\[/, <$fh>; |
| 523 | 523 |
close($fh); |
| ... | ... | |
| 551 | 551 |
|
| 552 | 552 |
my %plugins = ( 'loaded' => { }, 'needed' => { } );
|
| 553 | 553 |
|
| 554 |
if (!open(IN, $file)) {
|
|
| 554 |
if (!open(IN, '<:encoding(utf8)', $file)) {
|
|
| 555 | 555 |
print "E: template file '$file' not found\n"; |
| 556 | 556 |
return; |
| 557 | 557 |
} |
| ... | ... | |
| 645 | 645 |
sub scan_javascript_file {
|
| 646 | 646 |
my ($file) = @_; |
| 647 | 647 |
|
| 648 |
open(my $fh, $file) || die('can not open file: '. $file);
|
|
| 648 |
open(my $fh, '<:encoding(utf8)', $file) || die('can not open file: '. $file);
|
|
| 649 | 649 |
|
| 650 | 650 |
while( my $line = readline($fh) ) {
|
| 651 | 651 |
while( $line =~ m/ |
Auch abrufbar als: Unified diff
locales.pl: Quelldateien mit Encoding UTF-8 lesen
Das erlaubt die Verwendung von Unicode in HTML-Templates,
Perl-/JavaScript- und Menü-Dateien, sodass die auch vom Locale-System
richtig durchgereicht werden.