--- loncom/build/filecompare.pl 2002/05/16 00:23:04 1.13 +++ loncom/build/filecompare.pl 2004/07/02 22:04:50 1.14 @@ -3,7 +3,7 @@ # The LearningOnline Network with CAPA # filecompare.pl - script used to help probe and compare file statistics # -# $Id: filecompare.pl,v 1.13 2002/05/16 00:23:04 harris41 Exp $ +# $Id: filecompare.pl,v 1.14 2004/07/02 22:04:50 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -269,6 +269,7 @@ my %MEASURE=( my $rv2=`wc -l $file2`; chop $rv2; return ($rv1,$rv2); } ), 'diffs'=>( sub { my ($file1,$file2)=@_; + return (0,0); my $rv1=`diff $file1 $file2 | grep '^<' | wc -l`; chop $rv1; $rv1=~s/^\s+//; $rv1=~s/\s+$//; my $rv2=`diff $file1 $file2 | grep '^>' | wc -l`;