From e34b537ff1c3400ba0858b6c51bc177533e8ba6f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 16 Jan 2015 00:02:11 +0000 Subject: (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 --- Master/texmf-dist/scripts/texlive/updmap.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/scripts') 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$'; -- cgit v1.2.3