Attachment 62330 Details for Bug 15395 – Bug 15395: Fix PO header reading in po2json

[patch] Bug 15395: Fix PO header reading in po2json

Bug-15395-Fix-PO-header-reading-in-po2json.patch (text/plain), 1.77 KB, created by Marc Véron on 2017-04-18 19:49:41 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marc Véron

Created: 2017-04-18 19:49:41 UTC

Size: 1.77 KB

patch

obsolete

>From 8cb0e0ccf04fae6241bb14541e9fc975df11fc7f Mon Sep 17 00:00:00 2001
>From: Julian Maurice <julian.maurice@biblibre.com>
>Date: Thu, 6 Apr 2017 10:09:19 +0200
>Subject: [PATCH] Bug 15395: Fix PO header reading in po2json
>MIME-Version: 1.0
>Content-Type: text/plain; charset=UTF-8
>Content-Transfer-Encoding: 8bit
>
>Since version 0.24 Locale::PO do not escape newline characters in string
>returned by dequote()
>This patch set the required version of Locale::PO to 0.24 and fix po2json
>
>https://rt.cpan.org/Public/Bug/Display.html?id=96016
>Signed-off-by: Marc VÃ©ron <veron@veron.ch>
>---
> C4/Installer/PerlDependencies.pm | 2 +-
> misc/translator/po2json          | 4 ++--
> 2 files changed, 3 insertions(+), 3 deletions(-)
>
>diff --git a/C4/Installer/PerlDependencies.pm b/C4/Installer/PerlDependencies.pm
>index d466ec9..d22999e 100644
>--- a/C4/Installer/PerlDependencies.pm
>+++ b/C4/Installer/PerlDependencies.pm
>@@ -142,7 +142,7 @@ our $PERL_DEPS = {
>     'Locale::PO' => {
>         'usage'    => 'Core',
>         'required' => '1',
>-        'min_ver'  => '0.17'
>+        'min_ver'  => '0.24'
>     },
>     'LWP::Simple' => {
>         'usage'    => 'Core',
>diff --git a/misc/translator/po2json b/misc/translator/po2json
>index 8a80092..2f534be 100755
>--- a/misc/translator/po2json
>+++ b/misc/translator/po2json
>@@ -23,7 +23,7 @@
> 
> use strict;
> use JSON 2.53;
>-use Locale::PO 0.21;
>+use Locale::PO 0.24;
> use File::Basename qw(basename);
> 
> my $gettext_context_glue = "\004";
>@@ -81,7 +81,7 @@ sub main
>             my $qmsgstr = $po->msgstr;
>             my $cur = $po->dequote( $qmsgstr );
>             my %cur;
>-            foreach my $h (split(/\\n/, $cur))
>+            foreach my $h (split(/\n/, $cur))
>             {
>                 next unless length($h);
>                 my @h = split(':', $h, 2);
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 15395: 45797 | 45798 | 45799 | 46337 | 50023 | 50024 | 50025 | 50026 | 61873 | 61874 | 61875 | 61876 | 61934 | 61935 | 61977 | 62008 | 62041 | 62326 | 62327 | 62328 | 62329 | 62330 | 62331 | 62332 | 62333 | 62335 | 62709 | 65894 | 70974 | 70975 | 70976 | 71940 | 71941 | 71942 | 71943 | 71944 | 71945 | 71946 | 71947 | 71948 | 71949 | 71950 | 71951 | 71952 | 73901 | 73902 | 73903 | 73904 | 73905 | 73906 | 73907 | 73908 | 73909 | 73910 | 73911 | 73912 | 73913 | 76328 | 76329 | 76330 | 77475 | 77476 | 81152 | 81153 | 81154 | 81155 | 81156 | 81157 | 81158 | 81159 | 81167 | 81734 | 81735 | 81736 | 81737 | 81738 | 81739 | 81741 | 81742 | 81743