Make translation metadata thing CRLF safe
Peter Palfrader commited on 2006-02-16 17:32:57
Zeige 1 geänderte Dateien mit 2 Einfügungen und 0 Löschungen.
- include/functions.wmi b258a5633..b77d93973
| ... | ... |
@@ -11,6 +11,7 @@ sub getMetadata($) {
|
| 11 | 11 |
my $found_metadata = 0; |
| 12 | 12 |
while (<F>) {
|
| 13 | 13 |
chomp; |
| 14 |
+ s/\r$//; |
|
| 14 | 15 |
if ($_ eq '## translation metadata') {
|
| 15 | 16 |
$found_metadata = 1; |
| 16 | 17 |
last; |
| ... | ... |
@@ -20,6 +21,7 @@ sub getMetadata($) {
|
| 20 | 21 |
my %data; |
| 21 | 22 |
while (<F>) {
|
| 22 | 23 |
chomp; |
| 24 |
+ s/\r$//; |
|
| 23 | 25 |
if (/^#\s*(\S*):\s*(.*?)\s*$/) {
|
| 24 | 26 |
$data{$1} = $2;
|
| 25 | 27 |
} else {
|
| 26 | 28 |