blob: f81e2afa31501250ce9d79a5546a446b1cfaac41 (
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);
|