(check_w32): do not check context scripts.

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

1 files changed, 5 insertions, 5 deletions

diff --git a/Master/tlpkg/bin/check-wrapper-consistency b/Master/tlpkg/bin/check-wrapper-consistency
index 0e98652c7b8..d89bea6065a 100755
--- a/Master/tlpkg/bin/check-wrapper-consistency
+++ b/Master/tlpkg/bin/check-wrapper-consistency
@@ -42,7 +42,7 @@ sub main
   $w{'updmap'} = 1;
   $w{'updmap-sys'} = 1;
 
-  my $srcdir = "$Master/../Build/source/texk/texlive";
+  chomp (my $srcdir = `cd $Master/../Build/source/texk/texlive && pwd`);
   $cww = "$srcdir/tl-w32-starter.bat";
   $err += &check_w32 ("win32", $cww, %w);
 
@@ -89,8 +89,8 @@ sub unx_wrapper_entries
 
 
 # windows is special, as usual.  given the list of wrappers in UW, check
-# that each of those entries exists in W32DIR and is a copy of the
-# canonical w32 wrapper specified in W32CANONICAL.
+# that each of those entries exists in W32DIR as a .bat, and is a copy
+# of the canonical w32 wrapper specified in W32CANONICAL.
 # 
 sub check_w32
 {
@@ -98,14 +98,14 @@ sub check_w32
   my $diff = 0;
 
   for my $k (sort keys %uw) {
-    #print "$k -> $uw{$k}\n";
     my $target = $uw{$k};
-    next if $k eq "context";           # has its own .cmd file
+    next if $target =~ /context/;      # does things its own way
     next if $target =~ /dviasm|ebong/; # no .bat for python
     next if $target =~ /epspdf/;       # checks for ruby too
     next if $target =~ /ps4pdf/;       # has its own .bat
     next if $target =~ /simpdftex/;    # shell script
     next if $target =~ /tex4ht/;       # tex4ht has its own .bat's
+    #print "$k -> $uw{$k}\n";
     $diff += system ("cmp $w32dir/$k.bat $w32canonical");
   }