diff options
author | Norbert Preining <norbert@preining.info> | 2021-10-05 03:00:51 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-10-05 03:00:51 +0000 |
commit | 565de6b1d4171694d95a6e0552738891484ea7be (patch) | |
tree | c1b2b90a1d8d0fb654cd0759703903db58c8973c /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | 4a258bbb349d86735a9d1be59c3a5eae8756012c (diff) |
CTAN sync 202110050300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm index 4bce01cd21..e83a6e804a 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 59982 2021-07-18 22:13:22Z karl $ +# $Id: TLUtils.pm 60693 2021-10-04 02:24:25Z preining $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2021 Norbert Preining, Reinhard Kotucha # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 59982 $'; +my $svnrev = '$Revision: 60693 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -1753,7 +1753,7 @@ sub _do_postaction_filetype { } my $cmd = $keyval{'cmd'}; - my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`; + my $texdir = `kpsewhich -var-value=TEXMFROOT`; chomp($texdir); my $texdir_bsl = conv_to_w32_path($texdir); $cmd =~ s!^("?)TEXDIR/!$1$texdir/!g; @@ -1828,7 +1828,7 @@ sub _do_postaction_script { if (win32() && defined($keyval{'filew32'})) { $file = $keyval{'filew32'}; } - my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`; + my $texdir = `kpsewhich -var-value=TEXMFROOT`; chomp($texdir); my @syscmd; if ($file =~ m/\.pl$/i) { @@ -1903,7 +1903,7 @@ sub _do_postaction_shortcut { &log("postaction $how shortcut for " . $tlpobj->name . "\n"); if ($how eq "install") { - my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`; + my $texdir = `kpsewhich -var-value=TEXMFROOT`; chomp($texdir); my $texdir_bsl = conv_to_w32_path($texdir); $icon =~ s!^TEXDIR/!$texdir/!; |