blob: 95680d787ad168b0c52151b9d70d92c8f146233b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/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);
|