Bug #107039 for Locale-PO: Invalid formatting of obsolete entries

Dear authors, Show quoted text
I attached files for reproducing this bug. Please check the files. The source po file[1] is not identical with result po file[2]. But important point is that the result po file cannot be post-processed by GNU gettext tools. [1] source po file (for example): RT107039.po [2] do-nothing-filter: echo.pl [3] result po file by v0.27 : RT107039-v0.27.po [4] result po file by patched v0.27[*]: RT107039-v0.27-patch.po [*] https://github.com/l/perl5-locale-po/commit/7f6d303b2b8a16ae39ac9be93bd1f5933d534bed You will reproduce the bug by following procedure. $ perl echo.pl RT107039.po RT107039-v0.27-patch.po $ msgcat RT107039-v0.27.po RT107039-v0.27.po:29: inconsistent use of #~ RT107039-v0.27.po:31: inconsistent use of #~ RT107039-v0.27.po:43: inconsistent use of #~ RT107039-v0.27.po:45: inconsistent use of #~ RT107039-v0.27.po:47: inconsistent use of #~ RT107039-v0.27.po:49: inconsistent use of #~ msgcat: found 6 fatal errors $ perl -I/path/to/v0.27-patch-repository echo.pl RT107039.po RT107039-v0.27-patch.po $ msgcat RT107039-v0.27-patch.po # Japanese translations for test package # test パッケージに対する英訳. # Copyright (C) 2015 THE test'S COPYRIGHT HOLDER # This file is distributed under the same license as the test package. # Automatically generated, 2015. # msgid "" msgstr "" "Project-Id-Version: test version\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2015-09-11 09:00+0900\n" "PO-Revision-Date: 2015-09-11 09:00+0900\n" "Last-Translator: Automatically generated\n" "Language-Team: none\n" "Language: ja\n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=1; plural=0;\n" #: test.c:13 #~ msgid "TEST: msgid singleline" #~ msgstr "TEST: msgstr singleline" #: test.c:14 #~ msgid "" #~ "TEST: msgid multi\n" #~ "line" #~ msgstr "" #~ "TEST: msgstr multi\n" #~ "line" #: test.c:17 #~ msgctxt "TEST: mgsctxt singleline" #~ msgid "TEST: msgid singleline" #~ msgid_plural "TEST: msgid_plural singleline" #~ msgstr[0] "TEST: msgstr[0] singleline" #: test.c:20 #~ msgctxt "" #~ "TEST: mgsctxt multi\n" #~ "line" #~ msgid "" #~ "TEST: msgid multi\n" #~ "line" #~ msgid_plural "" #~ "TEST: msgid_plural multi\n" #~ "line" #~ msgstr[0] "" #~ "TEST: msgstr[0] multi\n" #~ "line" $ diff -u RT107039.po RT107039-v0.27.po --- RT107039.po 2015-09-11 23:12:59.320620805 +0900 +++ RT107039-v0.27.po 2015-09-11 23:41:47.228846861 +0900 @@ -26,9 +26,9 @@ #: test.c:14 #, c-format #~ msgid "TEST: msgid multi\n" -#~ "line" +"line" #~ msgstr "TEST: msgstr multi\n" -#~ "line" +"line" #: test.c:17 #, c-format @@ -40,11 +40,11 @@ #: test.c:20 #, c-format #~ msgctxt "TEST: mgsctxt multi\n" -#~ "line" +"line" #~ msgid "TEST: msgid multi\n" -#~ "line" +"line" #~ msgid_plural "TEST: msgid_plural multi\n" -#~ "line" +"line" #~ msgstr[0] "TEST: msgstr[0] multi\n" -#~ "line" +"line" Sincerely yours, Ryuunosuke Ayanokouzi

#!/usr/bin/perl # $ perl ~/bk/perl/perl5-locale-po/obsolete-multiline-test.pl | msgattrib --set-obsolete use strict; use warnings; use Data::Dumper; # use lib qw(/home/my/bk/github/cosimo/perl5-locale-po/lib); use Locale::PO; my $po_file_in = shift; #'ja-JP/00a_preface.po'; my $po_file_out = shift; #'ja-JP/00a_preface.po'; my $aref = Locale::PO->load_file_asarray($po_file_in); Locale::PO->save_file_fromarray( $po_file_out, $aref ); exit 0;