This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Commit 1735f6f53ca19f99c6e9e39496c486af323ba6a8 started to escape all
author=?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Fri, 8 Nov 2013 01:17:08 +0000 (02:17 +0100)
committerJames E Keenan <jkeenan@cpan.org>
Fri, 8 Nov 2013 01:17:08 +0000 (02:17 +0100)
commit35e037e8469de48b1a1e6c7d85c65b342abdfbcf
tree9da754756065ce91ac1015a633b9d9bdda67ac21
parentc584250ab6520bd51e5a66eb42033a7a43507bde
Commit 1735f6f53ca19f99c6e9e39496c486af323ba6a8 started to escape all
back-slashes which breaks case when lexicon translations contain substition
and literals with eval-non-safe characters. E.g.  these translations:

"[_1]foo\\n\n" => "[_1]bar\\n\n",
'[_1]foo\n' => '[_1]aÄ\9ba\n',

got doubled back-slashes on the maketext() output.

This patch de-escapes escaped backslashes if the literal is compiled as
function argument.

Fixes RT #120457.
MANIFEST
dist/Locale-Maketext/lib/Locale/Maketext.pm
dist/Locale-Maketext/t/91_backslash.t [new file with mode: 0644]