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