loncom/build/filecompare.pl - diff

Return to filecompare.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.2, 2001/11/05 02:57:21	version 1.3, 2001/11/14 13:19:36
Line 211 my %MEASURE=(	Line 211 my %MEASURE=(
'md5sum'=>(	'md5sum'=>(
sub {	sub {
my ($file1,$file2)=@_;	my ($file1,$file2)=@_;
my $rv1=`md5sum $file1`; chop $rv1;	my ($rv1)=split(/ /,`md5sum $file1`); chop $rv1;
my $rv2=`md5sum $file2`; chop $rv2;	my ($rv2)=split(/ /,`md5sum $file2`); chop $rv2;
return ($rv1,$rv2);	return ($rv1,$rv2);
}	}
),	),
Line 289 FLOP: foreach my $file (@files) {	Line 289 FLOP: foreach my $file (@files) {
my ($age1,$age2)=&{$MEASURE{'age'}}($file1,$file2);	my ($age1,$age2)=&{$MEASURE{'age'}}($file1,$file2);
$age=$age1-$age2;	$age=$age1-$age2;
my ($md5sum1,$md5sum2)=&{$MEASURE{'md5sum'}}($file1,$file2);	my ($md5sum1,$md5sum2)=&{$MEASURE{'md5sum'}}($file1,$file2);
if ($md5sum1 == $md5sum2) {	if ($md5sum1 eq $md5sum2) {
$md5sum='same';	$md5sum='same';
$size=0;	$size=0;
$lines=0;	$lines=0;
$diffs=0;	$diffs=0;
}	}
elsif ($md5sum1 != $md5sum2) {	elsif ($md5sum1 ne $md5sum2) {
$md5sum='different';	$md5sum='different';
my ($size1,$size2)=&{$MEASURE{'size'}}($file1,$file2);	my ($size1,$size2)=&{$MEASURE{'size'}}($file1,$file2);
$size=$size1-$size2;	$size=$size1-$size2;