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-consistency28
1 files changed, 19 insertions, 9 deletions
diff --git a/Master/tlpkg/bin/check-wrapper-consistency b/Master/tlpkg/bin/check-wrapper-consistency
index 94a00fa7ab4..abd8a729050 100755
--- a/Master/tlpkg/bin/check-wrapper-consistency
+++ b/Master/tlpkg/bin/check-wrapper-consistency
@@ -24,6 +24,7 @@ pod2usage(-exitstatus => 0, -verbose => 2) if $help;
exit (&main ());
+
sub main
{
my $err = 0;
@@ -34,18 +35,24 @@ sub main
my %w = &unx_wrapper_entries ("i386-linux");
- # add some additional wrappers which are currently not found
- # automatically
+ # add some additional wrappers which are not found
+ # automatically since they are not .. symlinks on Unix.
+ $w{'fmtutil-sys'} = 1;
$w{'getnonfreefonts-sys'} = 1;
- $w{'updmap-sys'} = 1;
$w{'updmap'} = 1;
- $w{'xindy'} = 1;
- $w{'texindy'} = 1;
- $w{'fmtutil-sys'} = 1;
+ $w{'updmap-sys'} = 1;
- $cww = "$Master/../Build/source/texk/texlive/tl-w32-starter.bat";
+ # these can be removed after we update all i386-linux binaries.
+ $w{'texindy'} = 1;
+ $w{'xindy'} = 1;
+
+ my $srcdir = "$Master/../Build/source/texk/texlive";
+ $cww = "$srcdir/tl-w32-starter.bat";
$err += &check_w32 ("win32", $cww, %w);
- system("cmp win32/tl-w32-wrapper.texlua $Master/../Build/source/texk/texlive/tl-w32-wrapper.texlua");
+
+ # one more.
+ $err += system ("cmp win32/tl-w32-wrapper.texlua"
+ . " $srcdir/tl-w32-wrapper.texlua");
return $err;
}
@@ -86,9 +93,12 @@ sub unx_wrapper_entries
sub check_w32
{
my ($w32dir, $w32canonical, %uw) = @_;
+ my $diff = 0;
for my $k (sort keys %uw) {
- system ("cmp $w32dir/$k.bat $w32canonical");
+ $diff += system ("cmp $w32dir/$k.bat $w32canonical");
#print "$k -> $uw{$k}\n";
}
+
+ return $diff;
}