summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/trans.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-08-15 22:26:59 +0000
committerKarl Berry <karl@freefriends.org>2012-08-15 22:26:59 +0000
commita963e7b406378c2ff1888a0e906017f8b0d6f69f (patch)
tree7ad2b2f24dcbce0847676754f78420a8b3636feb /Master/tlpkg/TeXLive/trans.pl
parentc34b2895b27bef8a317e693b0e2b8106fd6348da (diff)
do not try to read a variable $::lang_
git-svn-id: svn://tug.org/texlive/trunk@27413 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/trans.pl')
-rw-r--r--Master/tlpkg/TeXLive/trans.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/trans.pl b/Master/tlpkg/TeXLive/trans.pl
index 75fc68fd1ce..de98d258e18 100644
--- a/Master/tlpkg/TeXLive/trans.pl
+++ b/Master/tlpkg/TeXLive/trans.pl
@@ -109,8 +109,9 @@ if (($::lang ne "en") && ($::lang ne "C")) {
my @files_to_check;
if (defined($::area)) {
$code .= "_$::area";
- push @files_to_check, "$::lang_$::area", "$::lang-$::area",
- "$::lang_" . lc($::area), "$::lang-" . lc($::area),
+ push @files_to_check,
+ $::lang . "_" . $::area, "$::lang-$::area",
+ $::lang . "_" . lc($::area), "$::lang-" . lc($::area),
# try also without area code, even if it is given!
$::lang;
} else {