diff options
Diffstat (limited to 'Master/bin/alpha-linux/getnonfreefonts')
-rwxr-xr-x | Master/bin/alpha-linux/getnonfreefonts | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/Master/bin/alpha-linux/getnonfreefonts b/Master/bin/alpha-linux/getnonfreefonts index 969a251b52c..5965b4fc64a 100755 --- a/Master/bin/alpha-linux/getnonfreefonts +++ b/Master/bin/alpha-linux/getnonfreefonts @@ -107,7 +107,7 @@ sub expand_var { } while (<KPSEWHICH>) { chop; - return $_; + return "$_"; } close KPSEWHICH; } @@ -172,11 +172,9 @@ if ($opt_debug) { } -if ($sys) { - $INSTALLROOT=expand_var 'TEXMFLOCAL'; -} else { - $INSTALLROOT=expand_var 'TEXMFHOME'; -} +$INSTALLROOTNAME=($sys)? 'TEXMFLOCAL':'TEXMFHOME'; + +$INSTALLROOT=expand_var "$INSTALLROOTNAME"; ($sys)? debug_msg "sys=true":debug_msg "sys=false"; @@ -188,7 +186,13 @@ $INSTALLROOT=~s/\\/\//g if ($INSTALLROOT=~/^\\\\/); # \\abc\def debug_msg "Internal variable INSTALLROOT converted to '$INSTALLROOT'"; sub check_installroot { - die "! ERROR: The install directory '$INSTALLROOT' doesn't exist.\n" + die "! ERROR: The variable $INSTALLROOTNAME is not set.\n" + unless length ("$INSTALLROOT") > 0; + + die "! ERROR: The install directory '$INSTALLROOT' doesn't " . + "exist.\n" . + " If this is the correct path, please create " . + "this directory manually.\n" unless (-d "$INSTALLROOT"); die "! ERROR: The install directory '$INSTALLROOT' is not writable.\n" |