diff options
| author | Karl Berry <karl@freefriends.org> | 2012-08-15 22:26:59 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-08-15 22:26:59 +0000 |
| commit | a963e7b406378c2ff1888a0e906017f8b0d6f69f (patch) | |
| tree | 7ad2b2f24dcbce0847676754f78420a8b3636feb /Master/tlpkg/TeXLive | |
| parent | c34b2895b27bef8a317e693b0e2b8106fd6348da (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')
| -rw-r--r-- | Master/tlpkg/TeXLive/trans.pl | 5 |
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 { |