consistency fixes

git-svn-id: svn://tug.org/texlive/trunk@15168 c570f23f-e606-0410-a88d-b1316a301751

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");
   }