From 0e1290925a6ac6eb53adecfaa6b0f0134b63425a Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 11 Apr 2016 23:10:14 +0000 Subject: 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 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/scripts') 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"); -- cgit v1.2.3