Revision 46835bed
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| scripts/locales.pl | ||
|---|---|---|
| 601 | 601 |
|
| 602 | 602 |
open my $fh, '>', $file or die "$! : $file"; |
| 603 | 603 |
|
| 604 |
print $fh "#!/usr/bin/perl\n# -*- coding: $charset; -*-\n# vim: fenc=$charset\n\n"; |
|
| 604 |
my $emacs_charset = lc $charset; |
|
| 605 |
|
|
| 606 |
print $fh "#!/usr/bin/perl\n# -*- coding: $emacs_charset; -*-\n# vim: fenc=$charset\n\n"; |
|
| 605 | 607 |
print $fh $header, "\n" if $header; |
| 606 | 608 |
print $fh "$data_name = $delim[0]\n" if $data_name; |
| 607 | 609 |
|
Auch abrufbar als: Unified diff
Bei Emacs sind die Charsets lowercase: "iso-8859-15" anstelle von "ISO-8859-15"