Revision 3bde3a28
Von Moritz Bunkus vor etwa 13 Jahren hinzugefügt
| SL/Template/LaTeX.pm | ||
|---|---|---|
| 5 | 5 |
use strict; |
| 6 | 6 |
|
| 7 | 7 |
use Cwd; |
| 8 |
use Unicode::Normalize qw(); |
|
| 8 | 9 |
|
| 9 | 10 |
sub new {
|
| 10 | 11 |
my $type = shift; |
| ... | ... | |
| 353 | 354 |
return 0; |
| 354 | 355 |
} |
| 355 | 356 |
|
| 356 |
binmode OUT, ":utf8" if $::locale->is_utf8; |
|
| 357 |
print(OUT $new_contents); |
|
| 357 |
if ($::locale->is_utf8) {
|
|
| 358 |
binmode OUT, ":utf8"; |
|
| 359 |
print OUT Unicode::Normalize::normalize('C', $new_contents);
|
|
| 360 |
|
|
| 361 |
} else {
|
|
| 362 |
print OUT $new_contents; |
|
| 363 |
} |
|
| 358 | 364 |
|
| 359 | 365 |
if ($form->{"format"} =~ /postscript/i) {
|
| 360 | 366 |
return $self->convert_to_postscript(); |
Auch abrufbar als: Unified diff
UTF-8-Daten vor Ausgabe an Template auf Form C normalisieren
Wenn UTF-8-Daten als Form D vorliegen, so steigt LaTeX aus, weil es
diese Form nicht kennt.