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