diff options
| author | Karl Berry <karl@freefriends.org> | 2015-01-16 00:02:11 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2015-01-16 00:02:11 +0000 |
| commit | e34b537ff1c3400ba0858b6c51bc177533e8ba6f (patch) | |
| tree | dfb2b00770e6731ae31c3802835d6ce76dee7ebf | |
| parent | 2e4ec44d506fe03e0c25ffe9908cb782cb1ea99a (diff) | |
(BEGIN): don't use print_error in BEGIN block,
it's not defined yet.
git-svn-id: svn://tug.org/texlive/trunk@36067 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/updmap.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/texmf-dist/scripts/texlive/updmap.pl b/Master/texmf-dist/scripts/texlive/updmap.pl index eec019d1d34..e24e239f8af 100755 --- a/Master/texmf-dist/scripts/texlive/updmap.pl +++ b/Master/texmf-dist/scripts/texlive/updmap.pl @@ -18,14 +18,14 @@ my $svnid = '$Id$'; my $TEXMFROOT; BEGIN { - $^W=1; + $^W = 1; $TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`; if ($?) { - print_error("Cannot find TEXMFROOT, aborting!\n"); + warn "updmap.pl: kpsewhich -var-value=TEXMFROOT failed, aborting early.\n"; exit 1; } chomp($TEXMFROOT); - unshift (@INC, "$TEXMFROOT/tlpkg"); + unshift(@INC, "$TEXMFROOT/tlpkg"); } my $lastchdate = '$Date$'; |