diff options
| author | Norbert Preining <preining@logic.at> | 2009-08-17 16:47:45 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-08-17 16:47:45 +0000 |
| commit | 919c4de8811d95073f6af0e979021cb78be39da8 (patch) | |
| tree | 9da509b5006c1e7e402852f1927fee8f43d1342d /Master | |
| parent | cf34595c934021488b1499900cb9182576ceb582 (diff) | |
fix \\write strings
git-svn-id: svn://tug.org/texlive/trunk@14725 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/translations/trans.pl | 7 |
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") { |