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";
|