diff options
Diffstat (limited to 'Master/tlpkg/bin/tl-check-wrapper-consistency')
-rwxr-xr-x | Master/tlpkg/bin/tl-check-wrapper-consistency | 14 |
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; |