blob: ad527a9b22af262a6210a0c0f71d3bb5645b27bf (
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
# fmtutil-sys: wrapper script for fmtutil 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 ('fmtutil', @ARGV);
|