diff options
| author | Karl Berry <karl@freefriends.org> | 2016-04-11 23:10:14 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2016-04-11 23:10:14 +0000 |
| commit | 0e1290925a6ac6eb53adecfaa6b0f0134b63425a (patch) | |
| tree | a3bfed88a6671d11c55ca58f897bd30c4baf3386 /Master/texmf-dist | |
| parent | 58df6cf43eefd5899357e6d65f49f9f4f1386527 (diff) | |
give up early if can't determine Master dir, e.g.,
kpsewhich cannot be invoked (mail from carlisle,
10 Apr 2016 14:54:54).
git-svn-id: svn://tug.org/texlive/trunk@40416 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index afa877ce975..6ecb22d6eaa 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -74,9 +74,16 @@ BEGIN { # if not in bootstrapping mode => kpsewhich exists, so use it to get $Master chomp($Master = `kpsewhich -var-value=SELFAUTOPARENT`); } - $::installerdir = $Master; - # + # if we have no directory in which to find our modules, + # no point in going on. + if (! $Master) { + die ("Could not determine directory of tlmgr executable, " + . "maybe shared library woes?\nCheck for error messages above"); + } + + $::installerdir = $Master; # for config.guess et al., see TLUtils.pm + # make Perl find our packages first: unshift (@INC, "$Master/tlpkg"); unshift (@INC, "$Master/texmf-dist/scripts/texlive"); |