From aca25408a71aa50650162ae580179897e1326164 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Mon, 9 Jun 2008 15:23:49 +0000 Subject: rm useless size test in files_differ() git-svn-id: svn://tug.org/texlive/trunk@8617 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlpkg-ctan-check | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) (limited to 'Master') 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: -- cgit v1.2.3