diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2008-06-09 15:23:49 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2008-06-09 15:23:49 +0000 |
commit | aca25408a71aa50650162ae580179897e1326164 (patch) | |
tree | 94983b1d101f8d1005a52c36ddc42453494ab2a9 /Master | |
parent | 50f52150516bb5f7e20bb1c586122ca09bd28f13 (diff) |
rm useless size test in files_differ()
git-svn-id: svn://tug.org/texlive/trunk@8617 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index fcf13e10ebe..348e7797f21 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -233,12 +233,10 @@ sub main exit 0; } - # xx read FILES.last7days, determine CTAN changes, map to TL packages - # xx alternatively, check all tlp's, etc. ... if ($ARGV[0] eq "--check") { $OPT{"verbose"} = 0; - # xx but for now, just check the few packages we have worked with. + # for now, just check the few packages we have worked with. @ARGV = @WorkingTLP; } @@ -346,18 +344,8 @@ sub files_differ { my ($tl_file,$ctan_file) = @_; #warn "comparing $tl_file $ctan_file\n"; - - my $different = 0; - if (-s $tl_file != -s $ctan_file) { - # sometimes what's checked into CTAN vs. TL differs in the eol - # conventions. Don't worry about that. - if (system ("diff -q --strip-trailing-cr $tl_file $ctan_file >/dev/null") - != 0) { - $different = 1; - } - } - - return $different; + return (system ( + "diff -q --strip-trailing-cr $tl_file $ctan_file >/dev/null") != 0); } # vim: set ts=8 sw=2 expandtab: |