$NetBSD: patch-ab,v 1.3 2023/04/11 00:31:49 markd Exp $

Fix paths to kpsewhich.

--- tlpkg/TeXLive/TLUtils.pm.orig	2023-03-07 08:30:26.000000000 +0000
+++ tlpkg/TeXLive/TLUtils.pm
@@ -1973,7 +1973,7 @@ sub _do_postaction_filetype {
   }
   my $cmd = $keyval{'cmd'};
 
-  my $texdir = `kpsewhich -var-value=TEXMFROOT`;
+  my $texdir = `@KPSEWHICH@ -var-value=TEXMFROOT`;
   chomp($texdir);
   my $texdir_bsl = conv_to_w32_path($texdir);
   $cmd =~ s!^("?)TEXDIR/!$1$texdir/!g;
@@ -2048,7 +2048,7 @@ sub _do_postaction_script {
   if (wndws() && defined($keyval{'filew32'})) {
     $file = $keyval{'filew32'};
   }
-  my $texdir = `kpsewhich -var-value=TEXMFROOT`;
+  my $texdir = `@KPSEWHICH@ -var-value=TEXMFROOT`;
   chomp($texdir);
   my @syscmd;
   if ($file =~ m/\.pl$/i) {
@@ -2123,7 +2123,7 @@ sub _do_postaction_shortcut {
 
   &log("postaction $how shortcut for " . $tlpobj->name . "\n");
   if ($how eq "install") {
-    my $texdir = `kpsewhich -var-value=TEXMFROOT`;
+    my $texdir = `@KPSEWHICH@ -var-value=TEXMFROOT`;
     chomp($texdir);
     my $texdir_bsl = conv_to_w32_path($texdir);
     $icon =~ s!^TEXDIR/!$texdir/!;
@@ -3370,7 +3370,7 @@ sub create_updmap {
 }
 
 sub check_for_old_updmap_cfg {
-  chomp( my $tmfsysconf = `kpsewhich -var-value=TEXMFSYSCONFIG` ) ;
+  chomp( my $tmfsysconf = `@KPSEWHICH@ -var-value=TEXMFSYSCONFIG` ) ;
   my $oldupd = "$tmfsysconf/web2c/updmap.cfg";
   return unless -r $oldupd;  # if no such file, good.
 
@@ -4876,7 +4876,7 @@ sub mktexupd {
       }
       my $delim= (&wndws)? ';' : ':';
       my $TEXMFDBS;
-      chomp($TEXMFDBS=`kpsewhich --show-path="ls-R"`);
+      chomp($TEXMFDBS=`@KPSEWHICH@ --show-path="ls-R"`);
 
       my @texmfdbs=split ($delim, "$TEXMFDBS");
       my %dbs;
