Revision d0b3cf0b
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| scripts/locales.pl | ||
|---|---|---|
| 598 | 598 |
|
| 599 | 599 |
open my $fh, '>', $file or die "$! : $file"; |
| 600 | 600 |
|
| 601 |
print $fh "#!/usr/bin/perl\n\n"; |
|
| 601 |
print $fh "#!/usr/bin/perl\n# -*- coding: iso-8859-15; -*-\n\n";
|
|
| 602 | 602 |
print $fh $header, "\n" if $header; |
| 603 | 603 |
print $fh "$data_name = $delim[0]\n" if $data_name; |
| 604 | 604 |
|
Auch abrufbar als: Unified diff
Codierungssystem ISO-8859-15 in die von locales.pl erzeugten Dateien all/missing/lost schreiben