summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
committerNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
commit3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch)
tree5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
parentf78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff)
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/trans.pl')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/trans.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl b/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
index 0a905254b4..01fd82169f 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/trans.pl
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: trans.pl 41176 2016-05-16 00:42:28Z preining $
+# $Id: trans.pl 58557 2021-03-20 22:01:24Z siepo $
# Copyright 2009-2016 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -96,16 +96,16 @@ sub __ ($@) {
}
# $ret is already set initially
}
+ $ret =~ s/\\n/\n/g;
+ $ret =~ s/\\"/"/g;
+ $ret =~ s/\\\\/\\/g;
}
# translate back $ret:
- $ret =~ s/\\n/\n/g;
- $ret =~ s/\\"/"/g;
- $ret =~ s/\\\\/\\/g;
return sprintf($ret, @_);
}
sub load_translations() {
- if (($::lang ne "en") && ($::lang ne "C")) {
+ if (defined($::lang) && ($::lang ne "en") && ($::lang ne "C")) {
my $code = $::lang;
my @files_to_check;
if (defined($::area)) {