summaryrefslogtreecommitdiff
path: root/print/tex-tetex/patches/patch-bin_updmap
blob: d1ebfd431d7a4a3eb8ec9f4dadc4b3c3ec7188d2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
$NetBSD: patch-bin_updmap,v 1.1 2011/11/06 08:43:28 minskim Exp $

--- bin/updmap.orig	2011-06-17 23:45:54.000000000 +0000
+++ bin/updmap
@@ -8,7 +8,7 @@
 
 BEGIN {
   $^W=1;
-  chomp($TEXMFROOT = `kpsewhich -var-value=TEXMFROOT`);
+  chomp($TEXMFROOT = `@KPSEWHICH@ -var-value=TEXMFROOT`);
   unshift (@INC, "$TEXMFROOT/tlpkg");
 }
 
@@ -453,7 +453,7 @@ sub locateWeb2c {
   my @files = @_;
   return @files if ($#files < 0);
 
-  @files = split (/\n/, `kpsewhich --format="web2c files" @files`);
+  @files = split (/\n/, `@KPSEWHICH@ --format="web2c files" @files`);
   if (wantarray) {
     return @files;
   }
@@ -470,7 +470,7 @@ sub locateMap {
   my @maps = @_;
   return @maps if ($#maps < 0);
 
-  my @files = `kpsewhich --format=map @maps`;
+  my @files = `@KPSEWHICH@ --format=map @maps`;
   chomp @files;
 
   foreach my $map (@maps) {
@@ -672,7 +672,7 @@ sub setupOutputDir {
     my $tf;
     # Try TEXMFVAR tree. Use it if variable is set and $rel can
     # be written.
-    chomp($tf = `kpsewhich --var-value=TEXMFVAR`);
+    chomp($tf = `@KPSEWHICH@ --var-value=TEXMFVAR`);
     if ($tf) {
       &mkdirhier("$tf/$rel");
       if (! -w "$tf/$rel") {
@@ -697,13 +697,13 @@ sub setupDestDir {
 #
 sub setupCfgFile {
   if (! $cnfFile) {
-    my $tf = `kpsewhich --var-value=TEXMFCONFIG`;
+    my $tf = `@KPSEWHICH@ --var-value=TEXMFCONFIG`;
     chomp($tf);
     if ($tf && ! -f "$tf/web2c/$cnfFileShort") {
       &mkdirhier("$tf/web2c") if (! -d "$tf/web2c");
       if (-d "$tf/web2c" && -w "$tf/web2c") {
         unlink "$tf/web2c/$cnfFileShort";
-        my $original_cfg=`kpsewhich updmap.cfg`;
+        my $original_cfg=`@KPSEWHICH@ updmap.cfg`;
         chomp($original_cfg);
         print("copy $original_cfg => $tf/web2c/$cnfFileShort\n") if !$quiet;
         $newcnf="$tf/web2c/$cnfFileShort";
@@ -839,7 +839,7 @@ sub mkMaps {
   $cache=1;
 
   if (! $dry_run) {
-    my $TEXMFVAR = `kpsewhich --var-value=TEXMFVAR`;
+    my $TEXMFVAR = `@KPSEWHICH@ --var-value=TEXMFVAR`;
     chomp($TEXMFVAR);
     $logfile = "$TEXMFVAR/web2c/updmap.log";
     mkdirhier "$TEXMFVAR/web2c";
@@ -1072,7 +1072,7 @@ sub initVars {
   $cnfFile = "";
   $cnfFileShort = "updmap.cfg";
   $outputdir = "";
-  chomp($TEXMFMAIN =`kpsewhich --var-value=TEXMFMAIN`);
+  chomp($TEXMFMAIN =`@KPSEWHICH@ --var-value=TEXMFMAIN`);
 
   @psADOBE = (
        's/ URWGothicL-Demi / AvantGarde-Demi /',