From e86e12772866d2d71e41107d32425701acafddd1 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 7 Aug 2012 23:07:19 +0000 Subject: fmtutil-sys standard wrapper now. git-svn-id: svn://tug.org/texlive/trunk@27333 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/check-wrapper-consistency | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/bin/check-wrapper-consistency') 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; } -- cgit v1.2.3