diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
commit | 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch) | |
tree | 5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/TeXLive/trans.pl | |
parent | f78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff) |
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/trans.pl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/trans.pl | 10 |
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)) { |