|
Lines 274-279
if (defined $href) {
Link Here
|
| 274 |
# $charset_in = $candidate; |
274 |
# $charset_in = $candidate; |
| 275 |
# } |
275 |
# } |
| 276 |
# } |
276 |
# } |
|
|
277 |
|
| 278 |
# BUG6464: check consistency of PO messages |
| 279 |
# - count number of '%s' in msgid and msgstr |
| 280 |
for my $msg ( values %$href ) { |
| 281 |
my $id_count = split(/%s/, $msg->{msgid}) - 1; |
| 282 |
my $str_count = split(/%s/, $msg->{msgstr}) - 1; |
| 283 |
next if $id_count == $str_count || |
| 284 |
$msg->{msgstr} eq '""' || |
| 285 |
grep { /fuzzy/ } @{$msg->{_flags}}; |
| 286 |
warn_normal |
| 287 |
"unconsistent %s count: ($id_count/$str_count):\n" . |
| 288 |
" line: " . $msg->{loaded_line_number} . "\n" . |
| 289 |
" msgid: " . $msg->{msgid} . "\n" . |
| 290 |
" msgstr: " . $msg->{msgstr} . "\n", undef; |
| 291 |
} |
| 277 |
} |
292 |
} |
| 278 |
|
293 |
|
| 279 |
# set our charset in to UTF-8 |
294 |
# set our charset in to UTF-8 |
| 280 |
- |
|
|