summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-08-17 16:47:45 +0000
committerNorbert Preining <preining@logic.at>2009-08-17 16:47:45 +0000
commit919c4de8811d95073f6af0e979021cb78be39da8 (patch)
tree9da509b5006c1e7e402852f1927fee8f43d1342d
parentcf34595c934021488b1499900cb9182576ceb582 (diff)
fix \\write strings
git-svn-id: svn://tug.org/texlive/trunk@14725 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/translations/trans.pl7
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/translations/trans.pl b/Master/tlpkg/translations/trans.pl
index 40cf1926528..2d86b2f3656 100644
--- a/Master/tlpkg/translations/trans.pl
+++ b/Master/tlpkg/translations/trans.pl
@@ -15,6 +15,7 @@
# multiple lines. Furthermore, strings replacements are done:
# \n -> <newline>
# \" -> "
+# \\ -> \
#
use strict;
@@ -73,14 +74,18 @@ sub __ ($) {
return $ss if !defined($::lang);
my $key = $s;
$key =~ s/\n/\\n/g;
+ $key =~ s!\\!\\\\!g;
# if the translation is defined return it
if (defined($TRANS{$::lang}->{$key})) {
my $t = $TRANS{$::lang}->{$key};
+ my $tt = $t;
$t =~ s/\n/\\n/g;
+ $t =~ s/\\\\/\\/g;
if ($::debug_translation && ($s eq $t)) {
print STDERR "probably untranslated in $::lang: >>>$key<<<\n";
}
- return $TRANS{$::lang}->{$key};
+ $tt =~ s!\\\\!\\!g;
+ return $tt;
}
# if we cannot find it, return $s itself
if ($::debug_translation && $::lang ne "en") {