#!/usr/bin/env perl # updmap-sys: wrapper script for updmap with TEXMFVAR and # TEXMFCONFIG set to TEXMFSYSVAR / TEXMFSYSCONFIG # Copyright 2007 Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 # or any later version. # Originally provided as a shell script written by Thomas Esser. $^W=1; my $TEXMFSYSVAR=`kpsewhich -var-value TEXMFSYSVAR`; chomp ("$TEXMFSYSVAR"); $ENV{"$TEXMFVAR"}="$TEXMFSYSVAR"; my $TEXMFSYSCONFIG=`kpsewhich -var-value TEXMFSYSVAR`; chomp ("$TEXMFSYSCONFIG"); $ENV{"$TEXMFCONFIG"}="$TEXMFSYSCONFIG"; exec ('updmap', @ARGV);