summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/check-wrapper-consistency
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-08-07 23:07:19 +0000
committerKarl Berry <karl@freefriends.org>2012-08-07 23:07:19 +0000
commite86e12772866d2d71e41107d32425701acafddd1 (patch)
tree80c399e8c0623f12751154abbb2f1a4e46cbada7 /Master/tlpkg/bin/check-wrapper-consistency
parent11603c1bead080d9c227065c9b6752b1dae1ddb9 (diff)
fmtutil-sys standard wrapper now.
git-svn-id: svn://tug.org/texlive/trunk@27333 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/check-wrapper-consistency')
-rwxr-xr-xMaster/tlpkg/bin/check-wrapper-consistency7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/check-wrapper-consistency b/Master/tlpkg/bin/check-wrapper-consistency
index 122872065fc..a958b913214 100755
--- a/Master/tlpkg/bin/check-wrapper-consistency
+++ b/Master/tlpkg/bin/check-wrapper-consistency
@@ -42,8 +42,6 @@ sub main {
chomp (my $srcdir = `cd $Master/../Build/source/texk/texlive && pwd`);
$cww = "$srcdir/w32_wrapper/runscript.exe";
$err += &check_w32 ("win32", $cww, %w);
- # extra check for fmtutil-sys.exe, which is now a copy of fmtutil.exe
- $err += system ("cmp win32/fmtutil-sys.exe win32/fmtutil.exe");
return $err;
}
@@ -120,12 +118,15 @@ sub check_w32 {
opendir (DIR, $w32dir) || die "opendir($DIR) failed: $!";
my @binfiles = readdir (DIR);
closedir (DIR) || warn "closedir($DIR) failed: $!";
-
+
foreach my $f (@binfiles) {
next unless ($f =~ s/\.(bat|cmd)$//); # only batch files
next if ($uw{$f}); # already checked
$diff += system ("cmp $w32dir/$f.exe $w32canonical");
}
+
+ # extra check for fmtutil-sys.exe, since fmtutil is an executable.
+ $diff += system ("cmp $w32dir/fmtutil-sys.exe $w32canonical");
return $diff;
}