summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/check-wrapper-consistency
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/check-wrapper-consistency')
-rwxr-xr-xMaster/tlpkg/bin/check-wrapper-consistency15
1 files changed, 11 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/check-wrapper-consistency b/Master/tlpkg/bin/check-wrapper-consistency
index ef1b46b58b4..a2699ecd2c5 100755
--- a/Master/tlpkg/bin/check-wrapper-consistency
+++ b/Master/tlpkg/bin/check-wrapper-consistency
@@ -84,7 +84,7 @@ sub unx_wrapper_entries
-# windows is special, as usual. given the list of wrappers in UW, check
+# Windows is special, as usual. Given the list of wrappers in UW, check
# that each of those entries exists in W32DIR as a .exe, and is a copy
# of the canonical w32 wrapper specified in W32CANONICAL.
#
@@ -96,6 +96,7 @@ sub check_w32
for my $k (sort keys %uw) {
my $target = $uw{$k};
next if $target =~ /context/; # does things its own way
+ next if $target =~ /listings-ext/; # shell script
next if $target =~ /man/; # no symlink
next if $target =~ /ps4pdf/; # has its own .bat
next if $target =~ /simpdftex/; # shell script
@@ -111,9 +112,15 @@ sub check_w32
closedir (DIR) || warn "closedir($DIR) failed: $!";
foreach my $f (@binfiles) {
- next if ($f =~ /^tlmgr\.bat$/); # .exe would prevent tlmgr update --self!
- next if ($f =~ /^tl-w32-wrapper\.cmd$/); # no .exe stub for the universal wrapper
- next unless ($f =~ s/\.(bat|cmd)$/\.exe/); # only if batch file
+ # .exe would prevent tlmgr update --self!
+ next if ($f =~ /^tlmgr\.bat$/);
+ #
+ # no .exe stub for the universal wrapper:
+ next if ($f =~ /^tl-w32-wrapper\.cmd$/);
+ #
+ # only if batch file:
+ next unless ($f =~ s/\.(bat|cmd)$/\.exe/);
+
$diff += system ("cmp $w32dir/$f $w32canonical");
}