diff options
author | Denis Barbier <barbier> | 2002-04-12 09:14:13 +0000 |
---|---|---|
committer | Denis Barbier <barbier> | 2002-04-12 09:14:13 +0000 |
commit | 27e83e5590e8071e88103a542019a006fc2e205d (patch) | |
tree | 699014f660b90c7a6c43f009b992b4fc0eed7b85 /Perl/Webwml | |
parent | 461a8c2d80a5bd544bf23a7f3d5c3b156e116be6 (diff) |
Fix statistics when wrong language is found in templates.xx
CVS version numbers
Perl/Webwml/L10n/Debconf.pm: 1.10 -> 1.11
Diffstat (limited to 'Perl/Webwml')
-rw-r--r-- | Perl/Webwml/L10n/Debconf.pm | 72 |
1 files changed, 40 insertions, 32 deletions
diff --git a/Perl/Webwml/L10n/Debconf.pm b/Perl/Webwml/L10n/Debconf.pm index 7d750e2c53d..ee690ad1966 100644 --- a/Perl/Webwml/L10n/Debconf.pm +++ b/Perl/Webwml/L10n/Debconf.pm @@ -254,19 +254,21 @@ sub _read_dispatched { goto SKIP; } $lang = $2; - warn "$file:$line: lang-mismatch-in-translated-templates\n" - if $lang ne $ext; - unless (defined($self->{langs}->{$lang})) { - $self->{langs}->{$lang} = 1; - $self->{trans}->{$lang}->{count} = 0; - $self->{trans}->{$lang}->{fuzzy} = 0; - } - if ($status_c) { - $self->{trans}->{$lang}->{$status_c} ++; + if ($lang ne $ext) { + warn "$file:$line: lang-mismatch-in-translated-templates\n" } else { - warn "$file:$line: original-fields-removed-in-translated-templates\n"; + unless (defined($self->{langs}->{$lang})) { + $self->{langs}->{$lang} = 1; + $self->{trans}->{$lang}->{count} = 0; + $self->{trans}->{$lang}->{fuzzy} = 0; + } + if ($status_c) { + $self->{trans}->{$lang}->{$status_c} ++; + } else { + warn "$file:$line: original-fields-removed-in-translated-templates\n"; + } + $status_c = ''; } - $status_c = ''; } elsif (s/^(Description):\s*//) { if ($tmpl eq '') { warn "$file:$line: \`$1' field found before \`Template'\n"; @@ -297,29 +299,35 @@ sub _read_dispatched { goto SKIP; } $lang = $2; - warn "$file:$line: lang-mismatch-in-translated-templates\n" - if $lang ne $ext; - if (defined($self->{files}->{$lang})) { - die "Lang \`$lang' found in \`$file' and \`$self->{files}->{$lang}'\n" - unless $self->{files}->{$lang} eq $file; - } else { - $self->{files}->{$lang} = $file; - } - unless (defined($self->{langs}->{$lang})) { - $self->{langs}->{$lang} = 1; - $self->{trans}->{$lang}->{count} = 0; - $self->{trans}->{$lang}->{fuzzy} = 0; - } - do { - $_ = <TMPL>; - $line ++; - } until (!defined($_) || m/^\S/ || m/^$/m); - if ($status_d) { - $self->{trans}->{$lang}->{$status_d} ++; + if ($lang ne $ext) { + warn "$file:$line: lang-mismatch-in-translated-templates\n"; + do { + $_ = <TMPL>; + $line ++; + } until (!defined($_) || m/^\S/ || m/^$/m); } else { - warn "$file:$line: original-fields-removed-in-translated-templates\n"; + if (defined($self->{files}->{$lang})) { + die "Lang \`$lang' found in \`$file' and \`$self->{files}->{$lang}'\n" + unless $self->{files}->{$lang} eq $file; + } else { + $self->{files}->{$lang} = $file; + } + unless (defined($self->{langs}->{$lang})) { + $self->{langs}->{$lang} = 1; + $self->{trans}->{$lang}->{count} = 0; + $self->{trans}->{$lang}->{fuzzy} = 0; + } + do { + $_ = <TMPL>; + $line ++; + } until (!defined($_) || m/^\S/ || m/^$/m); + if ($status_d) { + $self->{trans}->{$lang}->{$status_d} ++; + } else { + warn "$file:$line: original-fields-removed-in-translated-templates\n"; + } + $status_d = ''; } - $status_d = ''; last unless defined($_); $line --; redo; |