[LON-CAPA-cvs] cvs: loncom /build filecompare.pl

[albertel]

albertel		Fri Jul  2 18:04:51 2004 EDT

  Modified files:              
    /loncom/build	filecompare.pl 
  Log:
  - diff mode doesn't seem that useful, and in some cases is taking incredibly long times to finish
  
  
Index: loncom/build/filecompare.pl
diff -u loncom/build/filecompare.pl:1.13 loncom/build/filecompare.pl:1.14
--- loncom/build/filecompare.pl:1.13	Wed May 15 20:23:04 2002
+++ loncom/build/filecompare.pl	Fri Jul  2 18:04:50 2004
@@ -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 $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`;