summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-28 18:14:39 +0000
committerKarl Berry <karl@freefriends.org>2008-07-28 18:14:39 +0000
commit8ab7544c291f58bfbb0a66a69668985cf463124f (patch)
tree2014f931964f7c1c2c756a4780e93e5a530862af
parent2cc8e99f092d79a75a430f370abc8bd0df49bc7b (diff)
(check_w32): do not check context scripts.
git-svn-id: svn://tug.org/texlive/trunk@9845 c570f23f-e606-0410-a88d-b1316a301751
-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");
}