summaryrefslogtreecommitdiff
path: root/Build/tools/etc/check-ctan2tl-output.pl
blob: 0311df9d8a643089e7070cfda82ff51fb77b45d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

my $indata=0;
my $innewvspresent=0;
my $linesdiff=0;
my $opdiff=0;
while (<>) {
  if (/^BEGIN COMPARE DATA$/) { $indata=1; next ; }
  if (/^END COMPARE DATA$/) { $indata=0; next ; }
  if (/can't find CTAN directory for /) { $opdiff = -10; last; }
  if (!$indata) { next; }
  if (/^ new vs\. present /) { $innewvspresent=1; next; }
  if (/^CMP: [0-9]* common files, ~([0-9]*) lines different/) {
    $innewvspresent=0;
    $linesdiff = $1;
    last;
  }
  $opdiff++;
  #print if $indata;
}
print "files diff: $opdiff; linesdiff: $linesdiff\n";