summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-check-wrapper-consistency
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tl-check-wrapper-consistency')
-rwxr-xr-xMaster/tlpkg/bin/tl-check-wrapper-consistency14
1 files changed, 9 insertions, 5 deletions
diff --git a/Master/tlpkg/bin/tl-check-wrapper-consistency b/Master/tlpkg/bin/tl-check-wrapper-consistency
index e5d12532323..947cb9374bb 100755
--- a/Master/tlpkg/bin/tl-check-wrapper-consistency
+++ b/Master/tlpkg/bin/tl-check-wrapper-consistency
@@ -2,8 +2,8 @@
# $Id$
# Public domain. Originally written 2008.
#
-# Check that the same set of files are wrappers on w32 and symlinks on
-# all others.
+# Check that the same set of files are wrappers on windows
+# and symlinks on all others.
BEGIN {
$^W = 1;
@@ -30,11 +30,12 @@ sub main {
my $bindir = "$Master/bin";
chdir ($bindir) || die "chdir($bindir) failed: $!";
+ # get entries from one Unix platform, assuming they're the same everywhere.
my %w = &unx_wrapper_entries ("x86_64-linux");
- chomp (my $srcdir = `cd $Master/../Build/source/texk/texlive && pwd`);
- $cww = "$srcdir/w32_wrapper/runscript.exe";
- $err += &check_w32 ("windows", $cww, %w);
+ my $windows_dir = "windows";
+ $cww = "windows/runscript.exe";
+ $err += &check_w32 ($windows_dir, $cww, %w);
return $err;
}
@@ -79,6 +80,9 @@ sub unx_wrapper_entries {
# cases) exists in W32DIR as a .exe, and furthermore is a copy of the
# canonical w32 wrapper exe specified in W32CANONICAL.
#
+# (2023: our windows binaries aren't 32-bit any more, but don't bother
+# renaming.)
+#
sub check_w32 {
my ($w32dir, $w32canonical, %uw) = @_;
my $diff = 0;