diff options
Diffstat (limited to 'Master/tlpkg/bin/check-wrapper-consistency')
-rwxr-xr-x | Master/tlpkg/bin/check-wrapper-consistency | 10 |
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"); } |