diff options
| author | Norbert Preining <preining@logic.at> | 2008-05-06 05:40:52 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-05-06 05:40:52 +0000 |
| commit | 52014b48a7333814482a5ccce5c0921f8a54c51f (patch) | |
| tree | 4a9ee0599c2da46de206bfe50a0621781f73ae2e /Master/tlpkg/TeXLive | |
| parent | b22da89e02ac1cff5ec9fa939e0fdf8d4c028a84 (diff) | |
make tlmgr work in the svn checkout
git-svn-id: svn://tug.org/texlive/trunk@7885 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 1f55b21796c..3c1089f8052 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -698,6 +698,14 @@ gives the extension for the C<lzmadec> binary. sub setup_programs { my ($bindir, $platform) = @_; $::progs{'wget'} = "wget"; + if (!defined($platform)) { + # we assume that we run from the DVD, so we can call platform() and + # thus also the config.guess script + # but we have to setup $::installerdir because that stupid + # platform script relies on it + $::installerdir = "$bindir/../.."; + $platform = platform(); + } $::progs{'lzmadec'} = "$bindir/lzmadec.$platform"; $::progs{'tar'} = "tar"; if (win32()) { |